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

 

 


Tema destacado: AIO elhacker.NET 2021 Compilación herramientas análisis y desinfección malware


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP) (Moderador: kub0x)
| | | |-+  Ayuda con colores RichTextBox
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] 2 3 Ir Abajo Respuesta Imprimir
Autor Tema: Ayuda con colores RichTextBox  (Leído 20,622 veces)
Braayhaan

Desconectado Desconectado

Mensajes: 224



Ver Perfil
Ayuda con colores RichTextBox
« en: 3 Septiembre 2009, 02:12 am »

Bueno acá esto pidiendoles ayuda de nuevo xD

Necesito que en un Richtextbox se muestre el texto de distintos colores por ejemplo.

Como el GeSHi de este foro que muestra distintos colores segun el texto.

hay alguna manera de hacerlo?

Todo esto en el VB.NET Claro

Saludos!


« Última modificación: 4 Septiembre 2009, 16:49 pm por BlazeFire » En línea

seba123neo


Desconectado Desconectado

Mensajes: 3.621



Ver Perfil WWW
Re: Ayuda con colores RichTextBox
« Respuesta #1 en: 3 Septiembre 2009, 02:19 am »

Código
  1. RichTextBox1.SelectionStart = RichTextBox1.Find("Palabra")
  2. RichTextBox1.SelectionColor = Color.Yellow ' El color que quieras



En línea

Braayhaan

Desconectado Desconectado

Mensajes: 224



Ver Perfil
Re: Ayuda con colores RichTextBox
« Respuesta #2 en: 3 Septiembre 2009, 04:55 am »

Me imagino que eso va en el Rich, o quizás en un timer pero me dice error.

Me dice algo de error valuetype-1 is no correct, o algo del value-1, alguna idea?

echame una mano seba!  :xD
« Última modificación: 3 Septiembre 2009, 05:22 am por BlazeFire » En línea

Braayhaan

Desconectado Desconectado

Mensajes: 224



Ver Perfil
Re: Ayuda con colores RichTextBox
« Respuesta #3 en: 3 Septiembre 2009, 05:00 am »

Bueno aca les dejo el source haber si me echan una mano ya que no entendi muy bien lo que puso el seba  :-[ me da error

Código
  1. Public Class Form1
  2.  
  3.    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  4.        If RichTextBox1.Text = "" Then
  5.            MessageBox.Show("No se puede compilar un texto vacio")
  6.            Return
  7.        End If
  8.        If SaveFileDialog1.ShowDialog = DialogResult.OK Then
  9.            RichTextBox1.SaveFile(SaveFileDialog1.FileName, RichTextBoxStreamType.PlainText)
  10.            ProgressBar1.Visible = True
  11.            Timer1.Start()
  12.        End If
  13.        Form1.ActiveForm().Text() = "Batch Creator" + SaveFileDialog1.FileName
  14.    End Sub
  15.  
  16.    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  17.        If OpenFileDialog1.ShowDialog = DialogResult.OK Then
  18.            RichTextBox1.LoadFile(OpenFileDialog1.FileName, RichTextBoxStreamType.PlainText)
  19.        End If
  20.        Form1.ActiveForm().Text() = "Batch Creator" + OpenFileDialog1.FileName
  21.    End Sub
  22.  
  23.    Private Sub SaveFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles SaveFileDialog1.FileOk
  24. End Sub
  25.  
  26.    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
  27.        ProgressBar1.Increment(10)
  28.        If ProgressBar1.Value = ProgressBar1.Maximum Then
  29.            Timer1.Stop()
  30.            MessageBox.Show("Se ha creado satisfactoriamente el archivo .bat en la direccion especificada")
  31.            ProgressBar1.Value = ProgressBar1.Minimum
  32.            ProgressBar1.Visible = False
  33.            Return
  34.        End If
  35.    End Sub
  36.  
  37.    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
  38.        If RichTextBox1.Text = "" Then
  39.            MessageBox.Show("Ya hay un nuevo documento abierto")
  40.            Return
  41.        End If
  42.        Form2.Show()
  43.    End Sub
  44.  
  45.    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
  46.        Form3.SHOW()
  47.    End Sub
  48.  
  49.    Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged
  50.  
  51.    End Sub
  52.  
  53. End Class
En línea

seba123neo


Desconectado Desconectado

Mensajes: 3.621



Ver Perfil WWW
Re: Ayuda con colores RichTextBox
« Respuesta #4 en: 3 Septiembre 2009, 05:38 am »

vos preguntaste como se colorea el texto, yo te respondi eso, pero despues no se que hiciste  :xD, el codigo que puse busca "Palabra" en el Richtextbox y lo colorea de amarillo. tambien podes hacerlo con SelectionStart y con SelectionLenght diciendole que desde la posicion 10 hasta la 15 sea de color rojo, de la 16 a la 20 sea azul y asi...ahi en ese codigo que pusiste no veo nada de eso. y no se donde te tira el error. igualmente yo le cambiaria varias cosas a ese codigo.

saludos.
En línea

Braayhaan

Desconectado Desconectado

Mensajes: 224



Ver Perfil
Re: Ayuda con colores RichTextBox
« Respuesta #5 en: 3 Septiembre 2009, 14:53 pm »

Ese codigo para colorear lo puse en el richtextbox y me da error
Hay les dejo el error que me tira.



No se que es y al darle a detalles aparecen como 100 lineas con cosas raras :xD

Help me Please ;D
En línea

Braayhaan

Desconectado Desconectado

Mensajes: 224



Ver Perfil
Re: Ayuda con colores RichTextBox
« Respuesta #6 en: 3 Septiembre 2009, 15:20 pm »

mmm bueno hasta ahora lo resolvi Asi

Código
  1. RichTextBox1.Find("@")
  2. RichTextBox1.SelectionColor = System.Drawing.Color.Yellow

Pero a cada rato que escribo algo se me devuelve a la primera linea me imagino que por eso del .Find

Alguna forma de que lo chequee pero que me deje escribir normal?

Thanks
En línea

Zzombi

Desconectado Desconectado

Mensajes: 174



Ver Perfil WWW
Re: Ayuda con colores RichTextBox
« Respuesta #7 en: 3 Septiembre 2009, 22:58 pm »

lo otro que podrias hacer es que cuando el richtextbox pierda el foco que se pinte el arroba "@" de color rojo

Código
  1. Private Sub RichTextBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles RichTextBox1.LostFocus
  2.  
  3. RichTextBox1.Find("@")
  4. RichTextBox1.SelectionColor = Color.Red
  5.  
  6. End Sub
En línea

Keyen Night


Desconectado Desconectado

Mensajes: 496


Nothing


Ver Perfil
Re: Ayuda con colores RichTextBox
« Respuesta #8 en: 3 Septiembre 2009, 23:31 pm »

Mira yo tengo la solución a ese problema xD yo tambien lo tube pero luego me dio flojera continuar un bat maker que estaba haciendo tambien; suponiendo que tu RichTextBox se llamará r así como el mio mira el evento TextChanged
Código
  1. Private Sub r_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles r.TextChanged
  2.        If r.Find("@echo") <> -1 Then
  3.            r.SelectionStart = r.Find("@echo")
  4.            r.SelectionColor = Color.Red
  5.            r.SelectionStart = r.TextLength
  6.        End If
  7.    End Sub
En línea

La Fé Mueve Montañas...
                                    ...De Dinero

La programación es más que un trabajo es más que un hobby es una pasión...
Braayhaan

Desconectado Desconectado

Mensajes: 224



Ver Perfil
Re: Ayuda con colores RichTextBox
« Respuesta #9 en: 4 Septiembre 2009, 05:53 am »

Keyen Night me funciono perfecto el ejemplo pero el detalle es este:

si escribo en la primera linea @ o ECHO o Off solo me marca el primer texto escrito por ejemplo si escribi @ me marca en rojo y si despues de @ escribo ECHO me sigue marcando en rojo,Cuando el codigo de ECHO Es azul y deberia marcar el @ en rojo y el ECHO en Azul.

Pero si doy enter y paso a la siguiente linea me pone el color del Richtextbox original.

Entonces haber si me ayudan  :xD
En línea

Páginas: [1] 2 3 Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
[AYUDA] Obtener text de un RichTextBox
Programación Visual Basic
sebah97 2 3,433 Último mensaje 19 Diciembre 2010, 19:56 pm
por BlackZeroX
Colores en RichTextBox [Solucionado] « 1 2 »
Programación Visual Basic
Stelio Kontos 17 7,952 Último mensaje 23 Marzo 2011, 15:11 pm
por Stelio Kontos
Ayuda con TabPages y RichTextBox!
.NET (C#, VB.NET, ASP)
Y0tta 1 2,035 Último mensaje 8 Febrero 2016, 08:32 am
por Eleкtro
MOVIDO: Ayuda con TabPages y RichTextBox!
Programación Visual Basic
Eleкtro 0 1,385 Último mensaje 8 Febrero 2016, 08:09 am
por Eleкtro
Ayuda con colores en bash
Scripting
gonuto 2 2,597 Último mensaje 2 Junio 2017, 18:19 pm
por gonuto
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines