satriano17
Gebruiker
- Lid geworden
- 30 sep 2012
- Berichten
- 331
Dag
Ik heb een image1. En een array van shapes.
Met onderstand code ,als ik met de linker toets van de muis op de image klik, worden punten getekend (max 7)
Als ik dan met de rechter toets op de image klik dan worden in een keer alle getekend punten gewist.
Tot nu toe is alles ok.
Hoe moet ik de code wijzigen om, met de rechter toets, enkel de laatste punt te wissen?
En dan met nog een klik de voorlaatste en tot alle punten gewist zijn (dus een per een vanaf de laatste)?
dank u
Ik heb een image1. En een array van shapes.
Met onderstand code ,als ik met de linker toets van de muis op de image klik, worden punten getekend (max 7)
Als ik dan met de rechter toets op de image klik dan worden in een keer alle getekend punten gewist.
Tot nu toe is alles ok.
Hoe moet ik de code wijzigen om, met de rechter toets, enkel de laatste punt te wissen?
En dan met nog een klik de voorlaatste en tot alle punten gewist zijn (dus een per een vanaf de laatste)?
dank u
Code:
Option Explicit
Private teller As Integer
Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim i As Integer
Select Case Button
Case 1 'linker toets
If teller < 8 Then
teller = teller + 1
With Shape1(teller - 1)
.Left = Image1.Left + x - .Width \ 2 '
.Top = Image1.Top + y - .Height \ 2
.Visible = True
End With
End If
text1.Text = Val(teller)
Case 2 'rechter toets
For i = 0 To teller - 1
Shape1(i).Visible = False
Next
teller = 0
text1.Text = 0' punten teller
End Select
End Sub
Laatst bewerkt: