HTML-Tags und dazwischen liegenden Text einfärben VB-Version:  VB5, VB6
	Views:  6.356

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.