comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

RichTextBox:Buscar todas las palabras iguales que uno desee y cambiarle el color

  • 0 Respuestas
  • 2663 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Conectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5401
  • Actividad:
    43.33%
  • Reputación 31
  • ANTRAX
    • Ver Perfil
    • Underc0de
    • Email
  • Skype: underc0de.org
  • Twitter: @Underc0de
« en: Julio 26, 2010, 03:48:27 pm »
Código: Visual Basic
  1. 'Este codigo fue programado por CULD
  2. '-----------------------------------
  3. 'Lo que hace es... cambiar de color
  4. 'todas las palabras que encuentre
  5. 'en el RichTextBox que uno quiera.
  6. 'por el color que uno  quiera
  7. '-----------------------------------
  8. 'Para llamar a la accion hay que usar
  9. 'Call Colorear(Palabra, "El RichTextBox", Color, 1)
  10. 'El Richtextbox es el nombre donde va a colorear
  11. 'El color tiene que ser en Hexadecimal (pueden cambiar el color de un label y copiar el codigo)
  12. 'La posicion por default siempre tiene que ser 1, si es que se quiere colorear desde el comienzo
  13. 'si se quiere colorear desde donde esta el cursor, hay que usar SelStart
  14. Public Sub Colorear(Palabra As String, Objeto As Object, Color As String, Posicion As Long)
  15. Dim Texto As String
  16. Dim Estoy As Long
  17. Texto = Objeto.Text
  18.  
  19. Estoy = InStr(Posicion, Texto, Palabra, vbTextCompare)
  20. If Estoy > 0 Then
  21.     'Se posiciona el cursor donde encontro la palabra
  22.    Objeto.SelStart = Estoy - 1
  23.     'Selecciona toda la palabra
  24.    Objeto.SelLength = Len(Palabra)
  25.     'Colorea la palabra
  26.    Objeto.SelColor = Color
  27.     'Pone en la posicion al final de la palabra
  28.    Posicion = Estoy + Len(Palabra)
  29.     'vuelve a llamar a la accion recursivamente para encontrar todas las palabras
  30.    Call Colorear(Palabra, Objeto, Color, Posicion)
  31. Else
  32.     Exit Sub
  33. End If
  34. End Sub
« Última modificación: Mayo 12, 2014, 03:21:39 pm por Expermicid »


 

¿Te gustó el post? COMPARTILO!



Registar extension con todas las de la Ley

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1372
Último mensaje Julio 26, 2010, 02:01:01 pm
por ANTRAX
Buscar archivos en forma avanzada usando funciones API

Iniciado por ANTRAX

Respuestas: 1
Vistas: 1627
Último mensaje Julio 28, 2010, 12:40:43 am
por Ignaro mayor de BsAs
Cuadro de diálogo buscar Equipo de Red

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1421
Último mensaje Julio 27, 2010, 04:36:31 pm
por ANTRAX
Como cambiar de color una columna de MSFlexgrid

Iniciado por ANTRAX

Respuestas: 0
Vistas: 2511
Último mensaje Julio 26, 2010, 11:30:30 am
por ANTRAX
Imprimir un RichTextBox tal y como se ve

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1786
Último mensaje Julio 26, 2010, 11:20:39 am
por ANTRAX