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

须创建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