Título: Richtextbox....como lo hago??
Publicado por: xepo en 18 Julio 2005, 20:54 pm
necesito presentar strings contenidas en dos bariables,
para diferenciar el string de cada variable queria cambiar el color del texto... uf aqui mi gran problema. pongo la propiedad .selcolor
el que quiero y si escribo con el teclado perfecto pero no se como mandar la variable string , con richtext1.text=richtext1.text & string No vale ya que no guarda ningun formato de fuente ni color
supongo que seria por el formato rtf .
lo que quisiera es presentar una variable rojo otra verde por ejemplo ...pero todo auto
mil asias estoy atrancado una semana...y bosotros podeis
saludos al foro ...
Título: Re: Richtextbox....como lo hago??
Publicado por: goodbye en 18 Julio 2005, 22:18 pm
Prueba este Private Sub Form_Load()
RichTextBox1.Text = ""
Dim cadenas(1 To 3) As String
cadenas(1) = "AZUL": cadenas(2) = "ROJO": cadenas(3) = "VERDE"
Dim i, Search, Where
For i = 1 To 3
RichTextBox1.Text = RichTextBox1.Text + " " + cadenas(i) ' Si deseas insertarlas con saltos de linea la cambias a:
' RichTextBox1.Text = RichTextBox1.Text + cadenas(i) + vbCrLf
Next i
For i = 1 To 3
Search = cadenas(i)
Where = InStr(RichTextBox1.Text, Search) ' Busca la cadena en el texto.
If Where Then ' Si se encuentra,
RichTextBox1.SelStart = Where - 1 ' se establece el inicio de la selección RichTextBox1.SelLength = Len(Search)
RichTextBox1.SelLength = Len(Search) ' y se establece la longitud para seleccionar.
Select Case cadenas(i)
Case "AZUL"
RichTextBox1.SelColor = vbBlue
Case "ROJO"
RichTextBox1.SelColor = vbRed
Case "VERDE"
RichTextBox1.SelColor = vbGreen
End Select
Else
MsgBox "Cadena no encontrada." ' Se notifica al usuario.
End If
Next i
RichTextBox1.SelStart = Len(RichTextBox1)
End Sub
|