Discussion :

[Markz]

Bonjour

Je suis présentement en train de développer un programme sur Visual Basic 6
Je cherche à savoir comment faire une boucle sur un command button. En fait, je veux rentrer une valeur dans un textbox, mais je veux qu'à chaque fois que j'appuie sur le command button, la valeur soit incrémenté du nombre de fois que j'appuie sur le boutton..
Pouvez-vous m'aider?

Merci!

[mike00]

salut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Command1_Click()
txt1.Text = txt1.Text + 1
End Sub

j'espere vous avoir aidé.

[AurelieB]

Bonjour,
pour ce genre d'affichage
j'utilise frequemment le control UpDown qui s'accole en general a un control textbox.
Le control qu'on decide d'accoler au UpDown est generalement appele Buddy, c.a.d c'est le copain du UpDown.
La premiere fois qu'on l'utilise il faut bien lire l'aide du vb6 afin de bien "lier" les 2 controls.

Le UpDown presente aussi l'avantage d'avoir un parametre Increment, qui permet de modifier la quantite dont est incremente (ou decremente) le textbox (buddy) a chaque fois qu'on appuie sur le bouton.

Bon curage...

[méphistopheles]

Bonjour

Je suis présentement en train de développer un programme sur Visual Basic 6
Je cherche à savoir comment faire une boucle sur un command button. En fait, je veux rentrer une valeur dans un textbox, mais je veux qu'à chaque fois que j'appuie sur le command button, la valeur soit incrémenté du nombre de fois que j'appuie sur le boutton..

veut-tu dire du nombre de fois ou tu a apuyé sur le bouton ou bien que s'ajoute 1 à la valeur du textbox ou encore que la valeur du textbox soit remplacée à chaque fois par le nombre de fois ou tu à appuyé ?

Dans le premier cas:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
dim nombre_appuis as long
___________________________________
private sub Boutton_click()
dim i as long
if isnumeric(Montexte.text) then 'pour éviter l'erreur de variable
    montext.text=montext.text + nombre_appuis
else 'reconstitue la valeur théorique en cas d'erreur (totalement optionel)
    montext.text=1
    if nombre_appuis >2 then
        for i=2 to nombre_appuis
            montext.text= montext.text+i
        next i 
   end if
end if
end sub

dans le deuxième cas:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
private sub Boutton_click()
if isnumeric(Montexte.text) then 'pour éviter l'erreur de variable
    montext.text=montext.text + 1
else
    msgbox "erreur le texte n'est pas un nombre"
    montext.text=1 'on rinitialise
end if
end sub

troisieme cas:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
dim nombre_appuis as long
___________________________________
private sub Boutton_click()
nombre_appuis=nombre_appuis+1
montext.text=nombre_appuis
end sub

salut