Getekende punten wissen op een image (VisualBasic6)

Status
Niet open voor verdere reacties.

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

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:
Status
Niet open voor verdere reacties.

Nieuwste berichten

Terug
Bovenaan Onderaan