LABELS + Button

Pls heelp
In form sunt 5 Labels(L1,L2,L3,L4,L5),toate invizibile si 1 Button(B1).
Cum pot face ca, in momentul in care apas butonul B1 la primul click sa-mi apara L1,la al doilea click sa dispara L1 si sa apara L2 si asa mai departe...
Multumesc.

Banuiesc ca e vorba de WinForms...
Modifici proprietatea Visible a label-urilor in true/false.

tatarduka, on 10th June 2011, 18:45, said:

Am incercat ceva de genul dar ,cand trebuie sa mearga din nou la L1 trebuie sa fac de 3 ori click pe mouse pana apare L1

Button click


t += 1
        Select Case t
            Case 1
                Label1.Visible = True
                Label1.Focus()
            Case 2
                Label2.Visible = True
                Label2.Focus()
                Label1.Visible = False
                Label3.Visible = False
            Case 3
                Label3.Visible = True
                Label3.Focus()
                Label1.Visible = False
                Label2.Visible = False
            Case 4

                Label4.Visible = True
                Label4.Focus()
                Label1.Visible = False
                Label2.Visible = False
                Label3.Visible = False
            Case 5
                Label5.Visible = True
                Label5.Focus()
                Label1.Visible = False
                Label2.Visible = False
                Label3.Visible = False
                Label4.Visible = False
            Case 6
                
                Label5.Visible = False
            Case 7
                If t = 7 Then
                    t = 0
                End If
        End Select

faci label cu index

Dim contor As Integer

Private Sub Command1_Click()
Label1(contor Mod 5).Visible = False
contor = contor + 1
Label1(contor Mod 5).Visible = True
End Sub

Private Sub Form_Load()
contor = 4
End Sub

MarianG, on 10th June 2011, 20:15, said:

Multumesc Marian dar sincer nu stiu cum functioneaza label cu index.
Poti sa-mi dai te rog o idee caci am cautat si n-am gasit nimik .

Click Dr pe label 'Copy' -- > Paste ... ok --

MarianG, on 13th June 2011, 04:07, said:

scuze sunt nou in vb, am facut astfel:

vezi la proprietati "Index", scrie 0, dupa care scrii acelasi nume la toate, si cresti index-ul ... (mult lucru cu mouse-ul)

pui o variabila globala numita clicknmber
la button1 click

if clicknmber = 0 then
label1.visible = true
clicknumber += 1
elseif clicknmbr = 1 then
label1.visible = false
label2.visible = true
clicknmbr += 1
elseif clicknmber = 2 then
label2.visible = false
label3.visible = true
clicknmbr +=1
elseif clicknmber  = 3 then
label3.visible = false
label4.visible = true
clicknmbr += 1
elseif clicknmber = 4 then
label4.visible = false
label5.visible = true
clicknmbr = 0
end if

mai simplu

nu e mai simplu cu select case nrClickuri?