Syntax Highlighting in Rich TextBox Control - Part 1
aca te paso un ejemplo facil, con palabras claves...
Código
Imports System.Text.RegularExpressions Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim vPalabraClave As New Regex("\b(Dim|As|New|Integer|For Each|Next|In)\b") Dim vSeleccion As Integer = RichTextBox1.SelectionStart RichTextBox1.SelectAll() RichTextBox1.SelectionColor = Color.Black RichTextBox1.SelectionStart = vSeleccion For Each vCoincide As Match In vPalabraClave.Matches(RichTextBox1.Text) RichTextBox1.Select(vCoincide.Index, vCoincide.Length) RichTextBox1.SelectionColor = Color.Blue RichTextBox1.SelectionStart = vSeleccion RichTextBox1.SelectionColor = Color.Black Next End Sub End Class
mi opinion es, que si queres seguir con un proyecto, ya sea este o otro, no vallas publicando cada cambio que hagas, sino que esperes a que este tenga varias funciones mas, sino vas a terminar en la version 132 en pocos dias, fijate mas por el lado de tipo Notepad ++, no te pido que sea igual, pero podes sacar ideas de funciones y demas...
saludos.