Visual basic 6
Bonjour,
voici mon probleme je voudrais generer des nombre dans une textbox multiline avec un timer.
seulement j'ai un probleme, je voudrais que ma textbox qui affiche par defaut "1"
puisse ajouter 1 a ce chiffre tout en passant a la ligne pour obtenir
1
2
3
4
5
6
......
pouriez vous m'aider s'il vous plait
un grand merci d'avance
PS: un bout du code VB6
Private Sub Timer1_Timer()
Text1.Text = Text1.Text & vbCrLf & Text1.Text + 1
End Sub
voici mon probleme je voudrais generer des nombre dans une textbox multiline avec un timer.
seulement j'ai un probleme, je voudrais que ma textbox qui affiche par defaut "1"
puisse ajouter 1 a ce chiffre tout en passant a la ligne pour obtenir
1
2
3
4
5
6
......
pouriez vous m'aider s'il vous plait
un grand merci d'avance
PS: un bout du code VB6
Private Sub Timer1_Timer()
Text1.Text = Text1.Text & vbCrLf & Text1.Text + 1
End Sub
5 réponses
-
personne ??
-
Bonjour,
Essai ceci:
Text1.Text = val(Text1.Text) & vbCrLf & val(Text1.Text) + 1 -
non desoler sa marche pas voila le resultat
1,21312141213122E+15
1,21312141213122E+15
mais merci de preter attention a mon probleme ;) -
Il faut déclarer une variable globale entière. En première ligne de ton code tu écris
Dim i as integer
Ensuite dans la procedure de chargement du form, tu mets:
Private Sub Form_Load()
i=0
End sub
Enfin tu mets dans le timer1_timer:
Private Sub Timer1_timer()
i=i+1
Text1.Text=Text1.Text & vbcrlf & i
end sub -
merci beaucoup
