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 7.219 mal aufgerufen. |
sevISDN 1.0 Überwachung aller eingehender Anrufe! Die DLL erkennt alle über die CAPI-Schnittstelle eingehenden Anrufe und teilt Ihnen sogar mit, aus welchem Ortsbereich der Anruf stammt. Weitere Highlights: Online-Rufident, Erkennung der Anrufbehandlung u.v.m. Buchempfehlung Tipp des Monats Mai 2024 Hermann Röttger Wochentage eines Datumsbereichs ermitteln Wochentage eines Datumsbereichs ermitteln, optional mit Feiertagsberechnung sevGraph (VB/VBA) Grafische Auswertungen Präsentieren Sie Ihre Daten mit wenig Aufwand in grafischer Form. sevGraph unterstützt hierbei Balken-, Linien- und Stapel-Diagramme (Stacked Bars), sowie 2D- und 3D-Tortendiagramme und arbeitet vollständig datenbankunabhängig! |
||||||||||
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. |