کار با paint

[alibaqershahi]

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

[mr-adler]

عرض سلام و خسته نباشید
این هم کد یکی از ابزار های پینت . امیدوارم موفق باشی...

Dim x1 As Variant
Dim y1 As Variant

Private Sub Form_Load()
x1 = 0
y1 = 0
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Line (x1, y1)-(X, Y)
x1 = X
y1 = Y
End Sub

[alibaqershahi]

دوست عزیز دست گلت درد نکنه