vb6 commandbutton a 2 click different et plus

Question

Bonjour a tous
en vb6 1 click pour plusieur effect

exemple: j'ai : 3 textbox (text1)(text2)(text3)
j'ai : 1 comandbutton (cmd1)

quel code (private sub) utiliser pour que quand j'appuit sur cmd1 le text1 s'affiche . le text2 ni le text3 eux reste invisible

puit j'appuit de nouveau sur cmd1 et le text 2 apparait , mais pas le text3 reste invisible (le text1 lui et toujour visible)
et ainsi de suite

voila mon debut de code:
1. dans la proprieter des textbox, j'ai mis leur proprieter visible a false
2. dans cmd1 : Private Sub Command1_Click()
Text1.Visible = True
Text2.Visible = True
Text3.Visible = True
End Sub

c'est magic il apparaisse tous en meme temp mais
c'est pas ce que je voudrait dommage.
merci a tous

oh · Answer

bonjour,
plus simple si 3 textbox de même nom ( avec
index de 0 à 2 ). exemple ?

Dim nbr As Integer
Private Sub Command1_Click()
Dim n As Integer
nbr = nbr + 1
If nbr >= Text1.Count Then
    nbr = 0
End If
For n = 0 To Text1.Count - 1
    If n <= nbr Then
        Text1(n).Visible = True
            Else
        Text1(n).Visible = False
    End If
Next n
End Sub

@+

ah · Answer

ben, j'avais cru comprendre ça
1 click = 1 textbox
2 click = 2 textbox visibles
3 click = 3 textbox visibles ( en boucle )
c'est pas çà ? => modifier sub
dans nbr : n° click ( de 0 à 2 ) pour
mettre text1(?).visible à true ou
false, en fonction de ce que l'on veut.
plus d'infos ? @+

Utilisateur anonyme · Answer

si c'est ca mais le click correspond a ca
1 click = 1 textbox et etxt 2 (pas bon)

moi je voudrai
1 click = 1 textbox (bon)

en fait ca marche comme je voulai mais le premier click me fait apparaitre text1 et text 2 en meme temp, c'est juste le premier click qui bug apres c'est tout bon

j'ai ca: 1 click = 2 textbox
2 click = 3 textbox visibles
3 click = 1 textbox visibles
4 click = 2 textbox visible
5 click = 3 textbox visibles

et j'aimerai avoir ca: 1 click = 1 textbox
2 click = 2 textbox visibles
3 click = 3 textbox visibles
4 click = 1 textbox visible
5 click = 2 textbox visibles
6 click = 3 textbox visibles
Merci et A+

ah · Answer

j'ai oublié de copier/collerPrivate Sub Form_Load()nbr = -1End Sub@+

Utilisateur anonyme · Answer

un grand Merci a (  Ah ) ton code marche a merveille Merci

Utilisateur anonyme · Answer

salut a tous
question : toujour dans le meme projet mais si je remplace les textbox par des label et que je veut afficher dans les label une lettre differente a chaque click (par exemple A, B, C).
que doije modifier ou rajouter dans ce code.

Merci a tous le monde

Vb6 commandbutton a 2 click different et plus

6 réponses

Discussions similaires

Newsletters