Incrementare Text1

[rampod]

Salve...un programmino penso abbastanza semplice ma che io nn riesco a fare =(............vorrei che se uno schiacciasse il tasto invio..stando in una text, si incrementasse la text di 1, ma scendendo sempre di una linea, cioè scrivendo:


{Invio}
1
{Invio}
2
{Invio}
3
{Invio}
4
{Invio}
5
...
...
...

capito?? io ho provato così...ma nn va =((


Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Dim numero As Integer
numero = Text1.Text + 1
Text1.Text = Text1.Text + numero
vbcrlf
End If
End Sub

idee??

[rampod]

allora? nn sapete darmi una mano?????

[renzo74]

Che errore ti da?

[michele79]

Private Sub Form_Load()
Text1.Text = 1
End Sub



Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Dim numero As Integer
numero = Val(Text1.Text) + 1
Text1.Text = numero

End If
End Sub

Con "VAL" converti la stringa in numero.....cosi funziona....fammi sapere!

[rampod]

questo codice va bene ma se io premo invio scende solo la prima riga
e scrive tutti i numeri e nn scende di tante
righe per quanti sono gli invii capito??

[Zitrog]

Private Sub Text1_KeyPress(KeyAscii As Integer)
Static intNum As Integer
    If KeyAscii = 13 Then
        intNum = intNum + 1
        Text1.Text = Text1.Text & intNum & vbCrLf
    End If
End Sub