Vb6 commandbutton a 2 click different et plus
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
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
6 réponses
-
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
@+-
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.
-
-
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 ? @+ -
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+ -
j'ai oublié de copier/coller
Private Sub Form_Load() nbr = -1 End Sub
@+ -
un grand Merci a ( Ah ) ton code marche a merveille Merci
-
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
