Thomas Risi Softwareentwicklung
Addins - Datenbanklösungen - Komponenten - RTDServer - WebServices
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
© 2001 -
by Thomas Risi