Thomas Risi Softwareentwicklung

In einer RichTextBox ein bestimmtes Wort fett markieren

Um einen Begriff in einer RichTextBox zu suchen, und fett zu markieren, kann man etwa so vorgehen.

Option Explicit Private Sub Command1_Click() Dim Begin As Long, Res As Long Dim Suchbegriff As String Dim Suchtext As String Suchtext = RichTextBox1.Text Suchbegriff = "TestText" Begin = 1 Do Res = InStr(Begin, Suchtext, Suchbegriff, vbBinaryCompare) If Not Res = 0 Then RichTextBox1.SelStart = Res - 1 RichTextBox1.SelLength = Len(Suchbegriff) RichTextBox1.Selbold = True Begin = Res + 1 End If Loop Until Res = 0 End Sub

Bewerten Sie bitte dieses Programm.
1 2 3 4 5
Weniger nützlich Sehr nützlich
Bitte teilen Sie uns mit, warum Sie das Programm so bewertet haben. (optional)