vb6, commandbutton, label, image, faire afficher les label 1 a 1 - VB/VBA/VBS - Programmation
Marsh Posté le 14-09-2004 à 19:26:55
Salut JagStang
oui il faut eliminer l'image 1 (je me suis tromper)
expl :
click 1 = label1 visible = caption "C"
click 2 = label1 visible = caption "D"
les label se nome tous label1 et se rende visible les uns apres les autre,apres chaque click sur un des commandbutton
EXPL :
label1: C D C D
click1 = ^ click2 = ^ click3 = ^ click4 = ^
les ^corresponde a une fleche pour montrer la lettre D ou C
Salut et Merci
Marsh Posté le 15-09-2004 à 01:44:23
resalut
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
Salut et Merci
Marsh Posté le 14-09-2004 à 17:12:51
Bonjour a tout le monde
En vb6, avec : 1 form 1
1 commandbutton 1
1 commandbutton 2
1 commandbutton 3
4 label 1
4 image 1
Comment faire afficher la lettre dans le caption du label 1
sans que la deuxieme lettre remplace la premiere lettre
quand ont affiche la deuxieme lettre dans le label 1
Voici mon code
----------------------------------------------------
Dim nbr As Integer
----------------------------------------------------
Private Sub Command1_Click()
Dim n As Integer
nbr = nbr + 0
If nbr >= Image1.Count Then
nbr = 4
End If
For n = 0 To Image1.Count - 1
If n <= nbr Then
Label1(n).Caption = "C"
Label1(n).Visible = True
End If
Next n
End Sub
----------------------------------------------------
Private Sub Command2_Click()
Dim n As Integer
nbr = nbr + 0
If nbr >= Image1.Count Then
nbr = 4
End If
For n = 0 To Image1.Count - 1
If n <= nbr Then
Label1(n).Caption = "D"
Label1(n).Visible = True
Label1(n).ZOrder
End If
Next n
End Sub
---------------------------------------------------
Private Sub Command3_Click()
Dim n As Integer
nbr = nbr + 1
If nbr >= Image1.Count Then
nbr = 4
End If
For n = 0 To Image1.Count - 1
If n <= nbr Then
Image1(n).Visible = True
Image1(n).Enabled = False
Else
Image1(n).Visible = False
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.