Kiki0602 2017-07-13 01:37 采纳率: 100%
浏览 1190
已采纳

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
  • 写回答

1条回答 默认 最新

  • threenewbee 2017-07-13 16:07
    关注
    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论

报告相同问题?

悬赏问题

  • ¥20 java-OJ-健康体检
  • ¥15 rs485的上拉下拉,不会对a-b<-200mv有影响吗,就是接受时,对判断逻辑0有影响吗
  • ¥15 使用phpstudy在云服务器上搭建个人网站
  • ¥15 应该如何判断含间隙的曲柄摇杆机构,轴与轴承是否发生了碰撞?
  • ¥15 vue3+express部署到nginx
  • ¥20 搭建pt1000三线制高精度测温电路
  • ¥15 使用Jdk8自带的算法,和Jdk11自带的加密结果会一样吗,不一样的话有什么解决方案,Jdk不能升级的情况
  • ¥15 画两个图 python或R
  • ¥15 在线请求openmv与pixhawk 实现实时目标跟踪的具体通讯方法
  • ¥15 八路抢答器设计出现故障