vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
TOP-Angebot: 17 bzw. 24 Entwickler-Vollversionen zum unschlagbaren Preis!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2019
 
zurück
Rubrik: TextBox, ListBox & ComboBox15.10.02
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.

Diese Seite wurde bereits 6.356 mal aufgerufen.

nach obenzurück
 
   

Druckansicht Druckansicht Copyright ©2000-2019 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel