satriano17
Gebruiker
- Lid geworden
- 30 sep 2012
- Berichten
- 331
dag. Ik heb een simpel tekenprogramma gemaakt om lijn te trekken met muis.
Werkt goed, maar de probleem is dat als ik lijnen trek zijn de lijnen niet veel recht.
ik wou nu 2 verbeteringen aanbrengen:
In plaats van met het muis te trekken, ik wou op een begin punt clikken,
dan op een tweede, en zo word de lijn tussen de twee punten getekend.
En als tweede, als ik op de rechter van de muis druk, dan wordt de laatste lijn gewist?
kan dat?
Hier mij simpel code
Ik heb een picture op het form en verder niks meer.
Werkt goed, maar de probleem is dat als ik lijnen trek zijn de lijnen niet veel recht.
ik wou nu 2 verbeteringen aanbrengen:
In plaats van met het muis te trekken, ik wou op een begin punt clikken,
dan op een tweede, en zo word de lijn tussen de twee punten getekend.
En als tweede, als ik op de rechter van de muis druk, dan wordt de laatste lijn gewist?
kan dat?
Hier mij simpel code
Ik heb een picture op het form en verder niks meer.
Code:
Dim vlag As Byte
Dim r As Byte
Dim g As Byte
Dim b As Byte
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1.PSet (X, Y), RGB(r, g, b)
vlag = 1
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If vlag = 1 Then Picture1.PSet (X, Y), RGB(r, g, b)
End Sub
Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
vlag = 0
End Sub
Laatst bewerkt: