求VB中按住鼠标画曲线 放开鼠标则停止画图的代码

求VB中按住鼠标画曲线 放开鼠标则停止画图的代码

是移动鼠标画线的代码，做个参考

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1.ForeColor = vbRed
Picture1.DrawWidth = 5
Picture1.PSet (X, Y)
End Sub
Private Sub Form_Load()
Me.Height = 5000
Me.Width = 5000
Picture1.Height = 4998
Picture1.Width = 4998
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

if (button and 1)=0 then exit sub ' 加上这个可以实现按下才画 Picture1.PSet (X, Y) End Sub Private Sub Form_Load() Me.Height = 5000 Me.Width = 5000 Picture1.Height = 4998 Picture1.Width = 4998

Picture1.ForeColor = vbRed'这两行没必要放在mousemove中

Picture1.DrawWidth = 5 End Sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息