Programalama > VISUAL BASIC

'Bir tane Picture yap ve kodu pastele. Göreceksin neler olacağını :)
'Serbest çizgiler çizmek
Dim Drawing As Boolean
Dim FHLastX As Long
Dim FHLastY As Long

Private Sub Picture1_MouseDown(Button As Integer, _
 Shift As Integer, X As Single, Y As Single)
    Drawing = True
    FHLastX = X
    FHLastY = Y

End Sub

Private Sub Picture1_MouseMove(Button As Integer, _
 Shift As Integer, X As Single, Y As Single)
    
    'Bu teknik bütün çizimlerde kullanılıyor
    Picture1.Line (FHLastX, FHLastY)-(X, Y)
    FHLastX = X
    FHLastY = Y

End Sub

Private Sub Picture1_MouseUp(Button As Integer, _
 Shift As Integer, X As Single, Y As Single)
    
    'çizimi bitir
    Drawing = False

End Sub