SoloCodigo

CLR: .Net / Mono / Boo / Otros CLR => VB .NET => Mensaje iniciado por: ltbl en Domingo 24 de Octubre de 2010, 18:41

Título: Editor de texto / negrita / cursiva / ...
Publicado por: ltbl en Domingo 24 de Octubre de 2010, 18:41

Hola.
Estoy haciendo un editor de texto con Visual Basic.

Tengo un problema con la negrita, cursiva y subrayado.

Las 3 funciones son iguales por ejemplo la que pasa el texto a negrita es:

Código: vb.net

1.     Public Sub negrita()
2.         If rtb_hoja.SelectionFont.Bold = False Then
3.             rtb_hoja.SelectionFont = New Font(rtb_hoja.SelectionFont, FontStyle.Bold)
4.         Else
5.             rtb_hoja.SelectionFont = New Font(rtb_hoja.SelectionFont, FontStyle.Bold = False)
6.         End If
7.     End Sub
8.  

Cuando le doy al botón de negrita funciona bien, tanto para poner negrita como para quitarla.
El problema viene cuando tengo una palabra en negrita, y ademas la quiero en cursiva, que no me guarda el primer estado.
Aún no tengo mucha practica con VB y no se me ocurre cómo hacerlo, ¿alguien  me echa una mano?

Título: Re: Editor de texto / negrita / cursiva / ...
Publicado por: zumimoraes en Martes 16 de Noviembre de 2010, 13:59

Hola,
podrias pregunatrle en la condicion if si esta en cursiva, si es así, le indicas las dos cosas.