salut a tous
en vb6
Avec ce code, tout les labels s'apel 'label1.
Quand je click sur la command1, un premier label1 devient visible;
Je click sur la command2 et dans le label1 s'affiche la lettre C.
Je reclick sur la command1 et un deuxieme label1 devient visible;
je click sur la command3 et la lettre D s'affiche dans le deuxieme labe1
le probleme et que le premier label1 a maintenant la lettre D a l'interieur,alors qu'avant yaver un C
en fait a chaque fois que je click sur un commandbutton la lettre qui lui et attribuer s'affiche dans les labels
si je tape un C et apres je tape un D, ya D et D au lieu d'avoir C et D dans les labels
Moi j'aimerais :
click 1 = C dans label 1 (N°1)
click 2 = D dans label 1 (N°2)
je recherche cette methode car plus tard je veut multiplier le nombre de label avec d'autre lettre de l'alphabet
J'ai ce code
----------------------------------------------
Dim nbr As Integer
----------------------------------------------
Private Sub Command1_Click()
Dim n As Integer
nbr = nbr + 1
If nbr >= Label1.Count Then
nbr = 2
End If
For n = 0 To Label1.Count - 1
If n <= nbr Then
Label1(n).Visible = True
Else
Label1(n).Visible = False
End If
Next n
End Sub
------------------------------------------
Private Sub Command2_Click()
Dim n As Integer
nbr = nbr + 1
If nbr >= Label1.Count Then
nbr = 2
End If
For n = 0 To Label1.Count - 1
If n <= nbr Then
Label1(n).Caption = "C"
End If
Next n
End Sub
------------------------------------------
Private Sub Command3_Click()
Dim n As Integer
nbr = nbr + 1
If nbr >= Label1.Count Then
nbr = 2
End If
For n = 0 To Label1.Count - 1
If n <= nbr Then
Label1(n).Caption = "D"
End If
Next n
End Sub
-------------------------------------------
Private Sub Form_Load()
nbr = -1
End Sub
-------------------------------------------
Salut et Merci a ceux qui save et aux autres aussi.
