title image


Smiley Re: Textfeld a la Word
Hi,



das geht mit einer RichTextBox(RTFBox)Ein kleines Beispiel:



Private Sub Form_Load()

RTFBox.Text = "Hallihallo"

ZeichenEinfaerben "a"

ZeichenEinfaerben "o"

RTFBox.SelStart = 0

End Sub



Private Sub ZeichenEinfaerben(suchText As String)

Dim pos As Integer



If suchText "" Then

pos = RTFBox.Find(suchText, 0)

Do While pos > 0

RTFBox.SelStart = pos

RTFBox.SelLength = Len(suchText)

RTFBox.SelColor = RGB(0, 0, 255)

RTFBox.SelBold = True

pos = RTFBox.Find(suchText, pos + Len(suchText))

Loop

End If

End Sub



Viele Grüße



Marco

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: