✔ Text Buchstabe für Buchstabe Ausgeben

[DooMoOo]

Hi @ all ,
wollt mal fragen wie es geht damit wenn ein Button jetz einen Text nach Text1.text schickt

text1.text = "Zeile 1" & vbcrlf & _
"Zeile 2"

und halt noch viele zeilen mehr und das dann buchstabe für buchstabe kommt oder Zeile für zeile ... irgend wie mit der "Sleep" funktion nur davon hab ich kein plan ... wäre nice wenn mir einer helfen könnte

Greetz
DooMoOo

 

[wincnc]

Hallo, versuch´s mal hiermit.
Dazu brauchst Du 1 CommandButton (Command1), 1 TextBox (Text1 - MultLine = True) und 1 Timer (Timer1).

Dim Text As String
Dim N As Long

Private Sub Command1_Click()

N = 1

Text = "Hallo wie geht´s, gefällt Dir das ?"

Timer1.Enabled = True

End Sub

Private Sub Form_Load()
 Text1 = ""
 Timer1.Interval = 200
 Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()

Text1 = Text1 & Mid(Text, N, 1)
Beep

N = N + 1

If N = Len(Text) + 1 Then
 Timer1.Enabled = False
End If

End Sub

 

[DooMoOo]

Ja genau danke

 

[DooMoOo]

Kannst du mir evtl. auch sagen wie das Zeile für Zeile Funktioniert ?

 

[wincnc]

Hallo

Dim Text As String
Dim N As Long
Dim Zeile() As String

Private Sub Command1_Click()

N = 0

Text = "Hallo wie geht´s, gefällt Dir das ?" & vbCrLf & _
"Das ist die zweite Zeile."

Zeile = Split(Text, vbCrLf)

Timer1.Enabled = True

End Sub

Private Sub Form_Load()
 Text1 = ""
 Timer1.Interval = 500
 Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()

Text1 = Text1 & Zeile(N) & vbCrLf ' Edit, hier fehlte  & vbCrLf
Beep

N = N + 1

If N = UBound(Zeile) + 1 Then
 Timer1.Enabled = False
End If

End Sub

 

[DooMoOo]

danköööö

 

[DooMoOo]

gibbet noch ne funktion das der auto. runter scrollt
weil ich nen text hab der über 100 zeilen geht .. und damit das dann auto. mit scrollt

 

[MAN]

Setzte einfach hinter dem Code, wo er den Text anfügt noch folgendes dahinter:

Text1.SelStart = Len(Text1.Text)

Dann sollte es funktionieren!

mfG,
MAN

 

[DooMoOo]

klappt irgendwie nicht so oder ich habs falsch gemacht

hab einmal gleich nach dem text der generiert wird gesetzt und einmal davor .. geht aber irgendwie nich

 

[MAN]

Private Sub Timer1_Timer()

Text1 = Text1 & Zeile(N) & vbCrLf ' Edit, hier fehlte  & vbCrLf
Text1.SelStart = Len(Text1.Text)
Beep

N = N + 1

If N = UBound(Zeile) + 1 Then
 Timer1.Enabled = False
End If

End Sub

So geht es nicht? Hm.... dann weiß ich leider auch nicht weiter