Vb6 commandbutton a 2 click different et plus

Utilisateur anonyme -  
 Utilisateur anonyme -
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
A voir également:

6 réponses

Réponse 1 / 6
oh
 
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

@+
0
Utilisateur anonyme
 
Salut Oh et Merci
ton code ca marche tres bien mais quand je fait executer :

1 tout et ok, j'ai que cmd1 de visible (ok)
2 je click cmd1 et text1 et text2 apparaisse (?) text3 invisible
3 je reclick text 1,2,3 sont tous la (?)

4 je re reclick text1 et la text2 et 3 sont invisible (ok)
5 je re re reclick text1 et 2 sont la .text3 invisible (ok)
6 je re re re reclick tous les text sont la. (ok)

je voit pas ou ya le bug.
0
Réponse 2 / 6
ah
 
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 ? @+
0
Réponse 3 / 6
Utilisateur anonyme
 
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+
0
Réponse 4 / 6
ah
 
j'ai oublié de copier/coller 
Private Sub Form_Load()
nbr = -1
End Sub
@+
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 6
Utilisateur anonyme
 
un grand Merci a ( Ah ) ton code marche a merveille Merci
0
Réponse 6 / 6
Utilisateur anonyme
 
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
0

Discussions similaires

Excel formule : nb.si.ens et critère "différent de vide"
lelion4 -
Mick -

11 réponses
Table des matières dont les titres n'apparaissent pas..
Synua -
ggg -

10 réponses
MSI CLICK BIOS 5
Theo4612 -
john99 -

9 réponses
comment faire "différent de" sous excel/
UsulArrakis -
Lizs -

11 réponses
NB.SI.ENS Différent de
nicolas4107 -
Vaucluse -

5 réponses