Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Ja, aber ...
Autor: jamila
Datum: 23.12.01 18:01
Uff, geschafft! Das mit der Richtextbox war ein guter Tip, vielen Dank! Da ich die Buchstaben immer in 2 Farben (rot und gelb) mit einem Timer (200 msec) wechseln lasse, geht das ganz gut mit selstart, sellength und selcolor. Mein einziges Problem, den Cursor tät ich gern verschwinden lassen. Das war Version 1. Bei Version 2 gehe ich mit mid$ und seltext und selcolor vor. Da bleibt mir aber beim ersten Mal der erste Buchstabe schwarz, und ich kann (warum eigentlich?) keine z.B. rote ForeColor-Eigenschaft für das RTF-Element einstellen. Siehe mein Code: Option Explicit Dim i, j, schalter ___________________________ Private Sub Timer1_Timer() Dim wtext 'Richtextbox1 ist am Anfang leer wtext = "Santa Claus" i = i + 1 RichTextBox1.SelText = Mid$(wtext, i, 1) If schalter = True Then RichTextBox1.SelColor = vbRed Else RichTextBox1.SelColor = vbYellow End If schalter = Not schalter If i > Len(wtext) Then i = 0 RichTextBox1.Text = "" End If End Sub ______________________________________ Private Sub Timer2_Timer() 'richtextbox2 hat als Anfangstext "Santa Claus" RichTextBox2.SelStart = j RichTextBox2.SelLength = 1 If j Mod 2 = 0 Then RichTextBox2.SelColor = vbRed Else RichTextBox2.SelColor = vbYellow End If j = j + 1 If j > Len(RichTextBox2.Text) Then j = 0 End Sub

Zeichenfarbe	65	jamila	21.12.01 21:17
Ja, aber ...	286	unbekannt	21.12.01 21:49
Re: Ja, aber ...	39	jamila	23.12.01 18:01

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen