Fent servir aquestes nous events del ratolí,  que no són el arxi-usat: MouseClick(...):
'Quan es prem el botó del ratolí
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    ...
End Sub
'Quan es mou el ratolí
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    ...
End Sub
'Quan se solta el botó del ratolí
Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
   ...
End Sub
Fes un programa de dibuix com aquest.
Darrera modificació: dijous, 21 d’abril 2022, 20:05