Mouse ile çizim

[ßyMesMes]

hiç bişe eklemeye gerek yok

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim mx, my
mx = X
my = Y
PSet (X, Y) 'başlangıç koordinatını belirlek için nota koy
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim mx, my
'sağ tuşa basılı ise çenber ciz
If Button = vbRightButton Then Circle (mx, my), Abs(mx - X)
'sol tuşa basılı ise dikdört ciz
If Button = vbLeftButton Then Line (mx, my)-(X, Y), , B
End Sub

 

[turkmmouser03]

Teşşekurler . Kaliteli Bir Konu Olmuş .

 

[Karcemackers]

Paylasım icin tesekkurler.

 

[ßyMesMes]

Rica ederim.

 

[cixcocuk97]

Teşekkür Ederim