vb.net画直线不消失，将图形保存为bmp文件

最新推荐文章于 2024-08-17 09:29:55 发布

dzweather

最新推荐文章于 2024-08-17 09:29:55 发布

阅读量4.2k

点赞数 3

分类专栏： VB.net知识文章标签： vb.net 图形直线消失保存

本文链接：https://blog.csdn.net/dzweather/article/details/12101701

版权

VB.net知识专栏收录该内容

15 篇文章 4 订阅

订阅专栏

须创建bitmap,关联到picturebox1.image上。

再在picturebox1.image上创建Graphics,再进行作图。

注意，因picturebox1.image是最初bitmap创建，默认是黑色，故，须用fillrectangle把背景刷成白色。

Imports System.Drawing
Imports System.Drawing.Drawing2D
Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim gr As Graphics
        Dim bp As New Bitmap(PictureBox1.Width, PictureBox1.Height)

        Dim pen1 As New Pen(Color.Red)
        pen1.DashStyle = DashStyle.DashDotDot
        pen1.Width = 2

        PictureBox1.Image = bp

        gr = Graphics.FromImage(PictureBox1.Image)
        gr.FillRectangle(Brushes.White, New Rectangle(0, 0, PictureBox1.Width, PictureBox1.Height))
        gr.DrawLine(pen1, 10, 10, 70, 70)

        PictureBox1.Image.Save("D:\1.bmp", System.Drawing.Imaging.ImageFormat.Bmp)

        gr.Dispose()
    End Sub
End Class