vb6, commandbutton, label, image, faire afficher les label 1 a 1

vb6, commandbutton, label, image, faire afficher les label 1 a 1 - VB/VBA/VBS - Programmation

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.

Reply

Marsh Posté le 14-09-2004 à 17:12:51   

Reply

Marsh Posté le 14-09-2004 à 17:15:09    

rien compris à ton TP :gratgrat:

Reply

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
 

Reply

Marsh Posté le 14-09-2004 à 19:28:40    

ya un decalage avec les click1, 2, 3, 4

Reply

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

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed