Foro de elhacker.net

RichTextBox1.SelectionStart = RichTextBox1.Find("Palabra")
RichTextBox1.SelectionColor = Color.Yellow ' El color que quieras

Public Class Form1
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If RichTextBox1.Text = "" Then
            MessageBox.Show("No se puede compilar un texto vacio")
            Return
        End If
        If SaveFileDialog1.ShowDialog = DialogResult.OK Then
            RichTextBox1.SaveFile(SaveFileDialog1.FileName, RichTextBoxStreamType.PlainText)
            ProgressBar1.Visible = True
            Timer1.Start()
        End If
        Form1.ActiveForm().Text() = "Batch Creator" + SaveFileDialog1.FileName
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If OpenFileDialog1.ShowDialog = DialogResult.OK Then
            RichTextBox1.LoadFile(OpenFileDialog1.FileName, RichTextBoxStreamType.PlainText)
        End If
        Form1.ActiveForm().Text() = "Batch Creator" + OpenFileDialog1.FileName
    End Sub
 
    Private Sub SaveFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles SaveFileDialog1.FileOk
End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Increment(10)
        If ProgressBar1.Value = ProgressBar1.Maximum Then
            Timer1.Stop()
            MessageBox.Show("Se ha creado satisfactoriamente el archivo .bat en la direccion especificada")
            ProgressBar1.Value = ProgressBar1.Minimum
            ProgressBar1.Visible = False
            Return
        End If
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If RichTextBox1.Text = "" Then
            MessageBox.Show("Ya hay un nuevo documento abierto")
            Return
        End If
        Form2.Show()
    End Sub
 
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Form3.SHOW()
    End Sub
 
    Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged
 
    End Sub
 
End Class

RichTextBox1.Find("@")
RichTextBox1.SelectionColor = System.Drawing.Color.Yellow

Private Sub RichTextBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles RichTextBox1.LostFocus
 
RichTextBox1.Find("@")
RichTextBox1.SelectionColor = Color.Red
 
End Sub

Private Sub r_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles r.TextChanged
        If r.Find("@echo") <> -1 Then
            r.SelectionStart = r.Find("@echo")
            r.SelectionColor = Color.Red
            r.SelectionStart = r.TextLength
        End If
    End Sub

Dim lastPos As Integer ' Donde se estaba escribiendo
    Dim nLine As Integer   ' Linea donde se trabaja
    Dim start As Integer   ' Indice del principio de la linea dentro del texto
    Dim final As Integer   ' Fin de la linea (largo de la linea)
 
    Private Sub rtf_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rtf.TextChanged
        ' "@" se colorea                         (NOTA: Funciona a medias, con el tema 
        ' "@asfdasd" : @ se colorea        ( de que si se borra queda el color que estaba)
        colorear("@", Color.Red, False, False)
        ' "echo" se colorea
        ' "malechor" : echo no se colorea
        colorear("echo", Color.Blue, False)
    End Sub
 
    Sub colorear(ByVal clave As String, ByVal color As Color, Optional ByVal spaceAntes As Boolean = True, Optional ByVal spaceDespues As Boolean = True)
        Try
            ' Para recordar en que posicion estaba y no provocar problemas
            lastPos = rtf.SelectionStart
            ' Obtenemos la linea a trabajar
            nLine = rtf.GetLineFromCharIndex(lastPos)
            ' Obtenemos el indice de la linea (indice dentro de todo el texto, no conviene separar la linea en otra variable)
            start = rtf.GetFirstCharIndexOfCurrentLine()
            ' establecemos el limite para buscar la palabra clave
            final = rtf.Lines(nLine).Length
 
            ' Para saber si se tiene que escribir la palabra clave por separado
            If spaceAntes Then clave = " " & clave
            If spaceDespues Then clave = clave & " "
 
            ' Buscamos la palabra clave, si no esta, no hacemos nada
            If Not rtf.Text.IndexOf(clave, start, final) = -1 Then
                rtf.SelectionStart = rtf.Text.IndexOf(clave, start, final)
                rtf.SelectionLength = clave.Length ' Para no colorear demas....
                rtf.SelectionColor = color
            End If
 
            ' Volvemos a donde se estaba escribiendo, y al color normal
            rtf.SelectionStart = lastPos
            rtf.SelectionLength = 0
            rtf.SelectionColor = rtf.ForeColor
        Catch ex As Exception
 
        End Try
    End Sub

    Dim palabras as New HashTable()
Public Sub Form_Load(....)....
    palabras.add("@", Color.Red)
    palabras.add("echo", Color.Blue)
End Sub
 
'.....
 
Private Sub rtf_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rtf.TextChanged
    For each s As String In palabras.Keys
        colorear(s, palabras(s))
    Next
End sub
 

Private ReservadasBlue As String() = _
    {"if", "then", "else"} 'En este arreglo pones todas las palabras que quieras que aparezcan en color Azul
 
    Private ReservadasRed As String() = _
    {"echo", "@"} 'En este arreglo pones todas las palabras que quieras que aparezcan en color Rojo
 
    Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged
 
        ' aqui obtiene un arreglo de palabras desde el inicio
        ' hasta donde esta la posicion del cursor
        Dim Palabras As String() = RichTextBox1.Text.Substring(0, RichTextBox1.SelectionStart).Split()
 
        'Aqui obtenemos el ultimo elemento del arreglo de palabras
        Dim UltimaEscrita As String = Palabras(Palabras.Length - 1)
 
        'Guardamos la posicion del cursor
        Dim PosCursor As Integer = RichTextBox1.SelectionStart
 
        'Verificamos si la palabra escrita esta en el el arreglo 
        'en este caso declare un arreglo para cada color
        If ReservadasBlue.Contains(UltimaEscrita) Then
            RichTextBox1.Find(UltimaEscrita, RichTextBoxFinds.Reverse)
            RichTextBox1.SelectionColor = Color.Blue
            RichTextBox1.SelectionStart = PosCursor
        End If
 
        'aqui para el color rojo, en caso de añadir mas pues solo seria
        'cosa de agregar mas arreglos y mas condicionales
        If ReservadasRed.Contains(UltimaEscrita) Then
            RichTextBox1.Find(UltimaEscrita, RichTextBoxFinds.Reverse)
            RichTextBox1.SelectionColor = Color.Red
            RichTextBox1.SelectionStart = PosCursor
        End If
 
        'regresamos al color original
        RichTextBox1.SelectionColor = Color.Black
    End Sub