Sharing, Teaching and Supporting coders of all ages and levels since 2009
https://www.codenstuff.com/forum/
AnoPem wrote:I want to color every thing that is between "<" ">" those 2 symbols, like "<body>"Get a timer and make it enabled, with invertal of 100 then double click in in designer.vb and add the code,
Does anyone know this can be achived with a richtextbox?
If Richtextbox1.text="TEXT" then
richtextbox1.text = color.bluecodedrive wrote:I want an easier way so it just pain everything between "<>"AnoPem wrote:I want to color every thing that is between "<" ">" those 2 symbols, like "<body>"Get a timer and make it enabled, with invertal of 100 then double click in in designer.vb and add the code,
Does anyone know this can be achived with a richtextbox?
Code: Select allSomething like that i think!If Richtextbox1.text="TEXT" then richtextbox1.text = color.blue
Private Sub btnHighlight_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHighlight.Click
RichTextBox1.Select(0, RichTextBox1.Text.Length)
RichTextBox1.SelectionColor = Color.Black
Dim startFrom As Integer = 0
Dim nameLength As Integer = 0
For i As Integer = 0 To RichTextBox1.Text.Length - 1
If RichTextBox1.Text(i) = "<"c Then
startFrom = i
ElseIf RichTextBox1.Text(i) = ">"c Then
nameLength = i - startFrom - 1
If nameLength > 0 Then
startFrom += 1
RichTextBox1.Select(startFrom, nameLength)
RichTextBox1.SelectionColor = Color.Blue
End If
End If
Next
RichTextBox1.SelectionStart = RichTextBox1.Text.Length
End Sub
if richtextbox1.text = "<"
then richtextbox1.forcolour = color.white
elseif richtextbox1.text = ">" then
richtextbox1.forcolour = color.blue