关于PICTUREBOX 笔触问题!
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 1 Then
Picture1.CurrentX = X: Picture1.CurrentY = Y
sngDrawWidth = 10
DrawWidth = sngDrawWidth
End If
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim lngDrawColor As Long
If Button = 1 Then
Picture1.DrawWidth = sngDrawWidth
Picture1.Line -(X, Y)
End If
End Sub
期望达到的效果如图:
在线等谢谢! --------------------编程问答-------------------- 顶起来。。。。。大家帮我想想看
If Button = 1 Then
Picture1.DrawWidth = sngDrawWidth
Picture1.Line (X, Y)-(X - 150, Y + 150)‘//这样好像有效果,但是线段不能连续。
End If --------------------编程问答-------------------- ding
补充:VB , 控件