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

Code :

1 2	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

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

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

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

Ja genau danke

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

Hallo

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35

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

danköööö

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

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

Code :

1	Text1.SelStart = Len(Text1.Text)

Dann sollte es funktionieren!

mfG,
MAN

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

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub Timer1_Timer()   Text1 = Text1 & Zeile(N) & vbCrLf ' Edit, hier fehlte  & vbCrLf [b]Text1.SelStart = Len(Text1.Text)[/b] 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

achso im timer muss das

THX Geht 1a