Visual basic 6
linusien
Messages postés
168
Date d'inscription
Statut
Membre
Dernière intervention
-
linusien Messages postés 168 Date d'inscription Statut Membre Dernière intervention -
linusien Messages postés 168 Date d'inscription Statut Membre Dernière intervention -
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
A voir également:
- Visual basic 6
- Visual basic - Télécharger - Langages
- Visual basic editor - Télécharger - Langages
- Visual petanque - Télécharger - Sport
- Microsoft 365 basic - Accueil - Microsoft Office
- Visual c++ 2019 - Guide
5 réponses
non desoler sa marche pas voila le resultat
1,21312141213122E+15
1,21312141213122E+15
mais merci de preter attention a mon probleme ;)
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question