VB-Homepage Tipp 324

RTF - Cursorstandort ermitteln, mark. Text modifizieren

Sie werden kaum ein RTF Steuerelement in Ihr Projekt einbinden, wenn es nur darum geht, etwas Text anzuzeigen. Dazu ist das Teil viel zu mächtig und wäre überdimensioniert. Wenn es aber darum geht, kleinere Editoren dem User zur Verfügung zu stellen oder eine Möglichkeit zu haben, Daten aus Ihrem Programm in ein Format auszugeben in dem Sie Formatierungen hinterlegen können und das selbst Word und andere größere Textverarbeitungen verstehen, dann ist das Rich Textbox Control (Richtx32.ocx) genau richtig und in sofern lohnt es sich, dieses Teil etwas mehr zu beleuchten. In diesem Tipp soll es darum gehen zu ermitteln, an welcher Stelle sich der Cursor befindet, ab welcher Stelle die Markierung beginnt, wie der markierte Text heißt und wie viele Zeichen die Markierung umfaßt. Als weiteres Ergebnis, soll der markierte Text eine andere Farbe zugewiesen bekommen. Haben Sie ein RTF Steuerelement in Ihre Form eingebunden, so können Sie nun über das Click Ereignis des Controls die Auswertung vornehmen. x = RichTextBox1.SelText     ' liefert Ihnen den markierten Text x = RichTextBox1.SelStart    ' liefert die Position des Anfangs der Markierung x = RichTextBox1.SelLength  ' liefert die Anzahl der markierten Zeichen Um den markierten Text hervorzuheben, können Sie beispielsweise folgendes übergeben. RichTextBox1.SelColor = QBColor(9)  'Vordergrundfarbe (blau) RichTextBox1.SelFontSize = 12        'Schriftgröße

Tipp-Download

Quelle :