رسم کردن یک خط با ماوس

[farzad93]

سلام به همه ی دوستان عزیز.
من میخوام یه برنامه ای بنویسم که بشه به وسیله ی ماوس توی یک picturebox خط بکشم. یعنی یه چیزی مثل برنامه ی paint که با مداد روی صفحه بشه هر شکلی رو رسم کرد.
خودم از کد زیر استفاده کردم ولی اشکالی که داره اینه که وقتی ماوس رو سریع حرکت میدی خط به صورت نقطه نقطه رسم میشه.

Public a As Single
Public b As Single
Public down As Boolean

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
down = True
Picture1.PSet (a, b)
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
a = X
b = Y
If down = True Then
Picture1.PSet (a, b)
End If
End Sub

Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
down = False

End Sub


اگه کسی ایده ای داره لطفا بگه.

[pcdownload.bloghaa.com]

یه راه توپ برات سراغ دارم از کد زیر استفاده کن :


Dim OX, OY As Single
Private Sub picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
Picture1.Line (OX, OY)-(X, Y)
End If
OX = X
OY = Y
End Sub