VB. net 怎样让panel做的画图板缩小化再开启后画的图还在？

VB. net 怎样让panel做的画图板缩小化再开启后画的图还在？

VB. net 怎样让panel做的画图板缩小化再开启后画的图还在？

下面是我的代码，请问要如何修改才可以呢？

谢谢你们了！

 Public Class Form1
    Dim mygraphics As Graphics
    Dim Mypen As Pen
    Dim Draw As Boolean = False
    Dim Start As Point
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        mygraphics = Me.pnlPaint.CreateGraphics
        Mypen = New Pen(Color.Black,10)
        pnlPaint.BackColor=Color.Black
    End Sub
    Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
        mygraphics.Dispose()
        Mypen.Dispose()
    End Sub
    Private Sub btnColor1_Click(sender As Object, e As EventArgs) Handles btnColor1.Click
        Mypen.Color = Color.White
    End Sub
   Private Sub pnlPaint_MouseMove(sender As Object, e As MouseEventArgs) Handles pnlPaint.MouseMove
        If e.Button And MouseButtons.Left Then
            pnlPaint.CreateGraphics.DrawLine(Mypen, Start.X, Start.Y, e.X, e.Y)
        End If
        Start = e.Location
    End Sub
    Private Sub pnlPaint_MouseUp(sender As Object, e As MouseEventArgs) Handles pnlPaint.MouseUp
        Draw = False
    End Sub
    Private Sub pnlPaint_MouseDown(sender As Object, e As MouseEventArgs) Handles pnlPaint.MouseDown
        Draw = True
    End Sub
End Class

netvisual studio

||收藏||

1个回答

按赞数排序

||

如果想补充问题，请编辑问题；问题解决后请采纳答案。

抄袭、复制答案画图板缩小，以超过刷声望分或其它目的的行为画图板缩小，在CSDN问答是严格禁止的,一经发现立即封号。是之后呈现真正的技术了！

本文来自电脑杂谈，转载请注明本文网址：
https://www.pc-fly.com/a/ruanjian/article-140532-1.html