elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Usando Git para manipular el directorio de trabajo, el índice y commits (segunda parte)


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP) (Moderador: kub0x)
| | | |-+  Richtextbox en C# y VB.NET		0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Richtextbox en C# y VB.NET  (Leído 10,835 veces)
jgzunigah

Desconectado Desconectado

Mensajes: 2


Ver Perfil
Richtextbox en C# y VB.NET
« en: 24 Febrero 2010, 05:29 am »
Hola resulta que tengo que hacer un efecto que se seleccione una palabra y le cambie de color, utilice la propiedad find y selectColor pero sitengo varias palabras que quiero cambiar como "Create " solo me cambia la primera y las demas no.

les agradeceria me ayudaran ya que no se como hacer, le pego una copia del codigo para que vean si es un error mio u otra cosa. A por cierto esta en VB.NET

gracias de antemano

 Private Sub analisisLexicoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles analisisLexicoToolStripMenuItem.Click
        'realiza la busqueda de las palabras y les cambia de color segun su categoria
        Dim Lineas() As String 'Almacena el valor de la linea de texto
        Dim Vec_PalabrasEvaluar() As String 'Almacena palabra por palabra por medio de la funcion split

        Lineas = rtbTexto.Lines


        For a As Integer = 0 To UBound(Lineas)
            Vec_PalabrasEvaluar = Split(Lineas(a), " ")
            For b As Integer = 0 To straux.Count - 1
                For c As Integer = 0 To UBound(Vec_PalabrasEvaluar)
                    If Vec_PalabrasEvaluar(c) = straux(b) Then
                        'MessageBox.Show(Vec_PalabrasEvaluar(c), "si", MessageBoxButtons.OK)
                        CambiaColor(straux(b))
                    End If
                Next
            Next
        Next



    End Sub

  Public Sub CambiaColor(ByVal vec As String)
        Dim wordToFind As String = vec

        If rtbTexto.TextLength > 0 Then
            'rtbTexto.Find(wordToFind, rtbTexto.SelectionStart, rtbTexto.SelectionLength, RichTextBoxFinds.WholeWord Or RichTextBoxFinds.MatchCase)
            'se hace el cambio de color
            Dim indexToText As Integer = rtbTexto.Find(wordToFind, RichTextBoxFinds.MatchCase Or RichTextBoxFinds.WholeWord)

            rtbTexto.Select(indexToText, wordToFind.Length)
            rtbTexto.SelectionColor = Color.Blue
        End If
    End Sub
En línea
Shell Root
Moderador Global
***
Desconectado Desconectado

Mensajes: 3.724


<3


Ver Perfil WWW
Re: Richtextbox en C# y VB.NET
« Respuesta #1 en: 24 Febrero 2010, 06:13 am »
Código
  1. Option Explicit On
  2. Option Strict On
  3.  
  4. Imports System.Text.RegularExpressions
  5.  
  6. Public Class Form1
  7.  
  8.     Private Sub Buscar_Coincidencia( _
  9.         ByVal pattern As String, _
  10.         ByVal RichTextBox As RichTextBox, _
  11.         ByVal cColor As Color, _
  12.         ByVal BackColor As Color)
  13.  
  14.  
  15.         Dim Resultados As MatchCollection
  16.         Dim Palabra As Match
  17.  
  18.         Try
  19.             ' PAsar el pattern e indicar que ignore las mayúsculas y minúsculas al mosmento de buscar
  20.             Dim obj_Expresion As New Regex(pattern.ToString, RegexOptions.IgnoreCase)
  21.  
  22.             ' Ejecutar el método Matches para buscar la cadena en el texto del control
  23.             ' y retornar un MatchCollection con los resultados
  24.             Resultados = obj_Expresion.Matches(RichTextBox.Text)
  25.  
  26.             ' quitar el coloreado anterior
  27.             With RichTextBox
  28.                 .SelectAll()
  29.                 .SelectionColor = Color.Black
  30.             End With
  31.  
  32.             ' Si se encontraron coincidencias recorre las colección  
  33.             For Each Palabra In Resultados
  34.                 With RichTextBox
  35.                     .SelectionStart = Palabra.Index ' comienzo de la selección
  36.                     .SelectionLength = Palabra.Length ' longitud de la cadena a seleccionar
  37.                     .SelectionColor = cColor ' color de la selección
  38.                     .SelectionBackColor = BackColor
  39.                     Debug.Print(Palabra.Value)
  40.                 End With
  41.             Next Palabra
  42.  
  43.         Catch ex As Exception
  44.             MsgBox(ex.Message.ToString)
  45.         End Try
  46.  
  47.     End Sub
  48.  
  49.     Private Sub Button1_Click( _
  50.         ByVal sender As System.Object, _
  51.         ByVal e As System.EventArgs) Handles Button1.Click
  52.         ' pasar el pattern, el Richtext, y los colores para el resalte
  53.         Buscar_Coincidencia(TextBox1.Text, RichTextBox1, Color.Blue, Color.Yellow)
  54.  
  55.     End Sub
  56. End Class
Fuente: :http://www.recursosvisualbasic.com.ar/htm/vb-net/9-richtextobx-highlight-color-en-vb-net.htm
En línea
Te vendería mi talento por poder dormir tranquilo.
raul338


Desconectado Desconectado

Mensajes: 2.633


La sonrisa es la mejor forma de afrontar las cosas


Ver Perfil WWW
Re: Richtextbox en C# y VB.NET
« Respuesta #2 en: 24 Febrero 2010, 13:30 pm »
Wow.... hace tiempo hubo un tema asi en el que participamos muchos :P y en ese momento nunca se me hubieran ocurrido usar expresiones regulares ;-) en cuanto a lo demas, es parecido al que hicimos :xD

El tema esta aca Ayuda con colores Richtextbox

Espero que te sirva
En línea
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Pregunta escribir en Richtextbox
Programación Visual Basic 		Cromatico 3 4,209 Último mensaje 12 Noviembre 2012, 20:09 pm
por NetFcruz
Texto Rebordeado RichTextbox?
Programación Visual Basic 		DarkMatrix 2 2,958 Último mensaje 21 Diciembre 2010, 17:36 pm
por 79137913
problema con richtextbox « 1 2 »
.NET (C#, VB.NET, ASP) 		CH4ØZ 12 7,639 Último mensaje 1 Febrero 2011, 22:02 pm
por CH4ØZ
Duda sobre RichTextBox
.NET (C#, VB.NET, ASP) 		CH4ØZ 2 2,380 Último mensaje 30 Octubre 2011, 04:07 am
por CH4ØZ
Reconocer HTML en un richTextBox, en C#
Programación General 		Bob1098 1 1,988 Último mensaje 19 Junio 2014, 16:36 pm
por Risketo
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines