Türkiye'nin ilk Cross-Platform OldSchool MOBİL & PC 1-99 Sunucusu Lamira2 6 Kasım'da Açılıyor! Büyük Açılışı Kaçırma HEMEN TIKLA!
hiç bişe eklemeye gerek yok
Kod:
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