visual basic 6 Fermé

Question

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


Configuration: Windows Vista / Internet Explorer 7.0

linusien · Answer

personne ??

frechnie · Answer

Bonjour,
Essai ceci:
Text1.Text = val(Text1.Text) & vbCrLf & val(Text1.Text) + 1

linusien · Answer

non desoler sa marche pas voila le resultat

1,21312141213122E+15
1,21312141213122E+15

mais merci de preter attention a mon probleme ;)

frechnie · Answer

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

linusien · Answer

merci beaucoup

Visual basic 6

5 réponses

Discussions similaires