Rubrik: TextBox, ListBox & ComboBox | 15.10.02 |
HTML-Tags und dazwischen liegenden Text einfärben VB-Version: VB5, VB6 | ||
Views: 7.182 |
Sie möchten den Text zwischen HTML-Tags in Ihrem Editor einfärben? Versuchen Sie es mal so:
Sie benötigen ein RichTextBox-Control und einen CommandButton sowie diesenCode:
Private Sub Command1_Click() Dim sPos As Long Dim ePos As Long With RichTextBox1 .Visible = False sPos = 0 Do sPos = .Find("<", sPos + 1) If sPos < 0 Then ePos = .Find("<", sPos + 1) If ePos < 0 Then .SelStart = sPos .SelLength = ePos - sPos + 1 .SelColor = vbBlue sPos = ePos + 1 End If End If Loop Until sPos < 1 .Visible = True End With End Sub
Starten Sie Ihr Projekt, schreiben Sie Text in die RTF-Box, den Siezwischendurch mit den HTML-Tags "<" und ">" garnierenund klicken Sie auf den CommandButton.