bonjour à tous
voilà j'ai un programme que je n'arrive pas à creer correctement , le but de ce programme est d'augmenter de une unité une variable numérique à chaque fois que l'on presse sur un bouton
voici le code que j'ai placé dans le boutton,
dans ce programme, la procédure est "essai", je l'ai mise dans un module standard dans le quel j'ai placé ce code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6 Dim nombre1 As Short nombre1 = TextBox1.Text essai(nombre1) TextBox2.Text = CStr(nombre1)
voila mon problème est que si j'écris "2" dans textbox1, et que je presse sur le bouton, textbox2.text va être égale à "3" mais le problème c'est que si je presse de nouveau sur le bouton il ne se passe rien , or j'aimerais que le textbox1 ne change pas de valeur mais que le textbox2 augmente de 1 chaque fois, donc égale à 4 et puis 5 et ainsi de suite
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 Sub essai(ByRef result As Short) result = result + 1 End Sub
merci de laisser des explications les plus claires possibles. Et par la même occasion si vous pouviez m'expliquer aussi la différence entre les procédures sub et fonction et les mots-clés "Byval" et "Byref" , ce serait bien gentil
merci ^^ (suis débutant)
Partager