[VB6] Testo a comparizione

[net*inside]

Ciao a tutti
Avevo in mente di creare un programma in cui ad un certo punto, compariva un testo lettera per lettera, nn sò se mi spiego, come se lo stessi scrivendo in diretta, solo che più veloce..

ho provato a fare una cosa di questo tipo:

for i = 1 to len("Ciao a tutti, come va?")
text1.text = mid("Ciao a tutti, come va?", 1, i)
sleep(20)
next i

il problema è che il testo compare tutto insieme, e non lettera per lettera...
consigli??

[Grumpy]

Quel "20" sono millisecondi.
E' anche necessario che tu inserisca un DoEvents all'interno del ciclo.

[oregon]

Aggiungo che il codice corretto sarebbe

    Dim s As String
    Dim i As Integer
    
    s = "Ciao a tutti, come va?"

    For i = 1 To Len(s)
        Text1.Text = Text1.Text & Mid(s, i, 1)
        Sleep 250
        DoEvents
    Next i

[net*inside]

a già, il doevents..
che beota che sono XD
comunque Grazie mille a tutti

[oregon]

Controlla anche l'uso della Mid ... e anche il fatto che non aggiungevi ma sostituivi i caratteri nella textbox ...