Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Frage zu RTF
Autor: Dirk
Datum: 19.06.02 09:06
Hi, Cyrano, Die GetLineFromChar()-Methode der RichTextBox gibt zurück, in welcher Zeile sich das n-te Zeichen befindet. Somit formatiert folgender Code jede Zeile: Dim I As Long Dim Zeile as Long Dim ZAnfang As Long Dim ZEnde As Long ZAnfang = 1 Zeile = 1 With RichTextBox1 For I = 1 To Len(.Text) If .GetLineFromChar(I) > Zeile Then ZEnde = I - 1 .SelStart = ZAnfang - 1 .SelLength = ZEnde - ZAnfang .SelFontName = "Times New Roman" Zeile = Zeile + 1 ZAnfang = I End If Next ZEnde = Len(.Text) .SelStart = ZAnfang - 1 .SelLength = ZEnde - ZAnfang .SelFontName = "Times New Roman" End With Das Formatieren der TextBox sieht allerdings etwas seltsam aus. Eine Alternative wäre hier, den Code leicht zu verändern, sodaß die TextBox Zeichen um Zeichen gefüllt und jedes Zeichen hierbei sofort formatiert wird... Viel Spaß noch, Dirk

Frage zu RTF	51	Cyrano	19.06.02 08:32
Re: Frage zu RTF	187	Dieter	19.06.02 08:56
Danke! (.o.T.)	28	Cyrano	19.06.02 09:05
Re: Frage zu RTF	34	Dirk	19.06.02 09:06
Danke (o.T.)	26	Cyrano	19.06.02 09:09
Re: Danke (o.T.)	34	Atarifreak	19.06.02 13:55

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