VB probleempje

[Cyrax]

hey allemaal

ik ben bezig met een klein VB-programmaatje.
Het bevat allemaal Pictureboxes die ALLEMAAL een 'name' hebben die begint met 'CR1'

nu heb ik een probeem met een stukje code

Dim j As Control
    Do While teller < 3
        For Each j In frmCricket
            If TypeOf j Is PictureBox And Left(j.Name, 3) = "Cr1" Then
                j.BackColor = &H40C0&
                teller = teller + 1
            End If
        Next j
    Loop

ik wil dat hij die backColor pas wijzigt en de teller pas verhoogt als ik met de muis op die desbetreffende picturebox klik ...

het enige wat ik kan bedenken is

if j.clicked = true then
                j.BackColor = &H40C0&
                teller = teller + 1
End if

maar dit werkt niet ... iemand een andere oplossing ???

 

[Bartuls]

Declareer de teller niet met Dim maar met Private, dan wordt de scope van de teller de module in plaats van de procedure.

Zet vervolgens de code onder het Click event (of MouseUp, MouseDown) van de betreffende picturebox.
Dan zou het moeten werken.

Op die manier behoud de teller zijn waarde zolang het formulier open staat. Als het formulier gesloten wordt dan is de teller ook weg.