[VB] HTML editor – .NET – Fórum – Programujte.com

Zdravím, dělám si takový editor a chci, aby se v kódu zvýraznily HTML tagy. Mám to udělané takhle:

        

	infxbot.SelectionStart = infxbot.Find("<b>")

	infxbot.SelectionColor = Color.CornflowerBlue

Snad tohle trošku pomůže:

Public Function hledejText(ByVal objekt As RichTextBox, ByVal strRetezec As String) As Integer

        Dim i As Integer

        Dim pozice As Integer

        Dim vyskyt As Integer



        i = 1 'pozice prvniho znaku

        vyskyt = 0



        While (1)

            pozice = InStr(i, objekt.Text, strRetezec, CompareMethod.Text)

            If (pozice <> 0) Then

                objekt.SelectionStart = pozice - 1

                objekt.SelectionLength = Len(strRetezec)

                objekt.SelectionColor = Color.Blue

                vyskyt = vyskyt + 1

                i = pozice + Len(strRetezec)

            Else

                hledejText = vyskyt 'vrat pocet nalezeni daneho textu

                Exit Function

            End If

        End While

End Function