NUESTRO PRIMER RETO:
Hacer una aplicación para formatear texto para introducir en EOL...
Veamos, yo estoy cansado de escribir un mensaje, y luego querer resaltar algo en negrita, darle al botón de negrita y tener q escribirlo otra vez para que lo meta en negrita....
Soluciones:
1.- Piensa antes de escribir: No valida, soy un hombre
2.- Escribe tu el [ B ] a mano: No me da la gana
3.- Usa un programita : Vale
Cómo podemos hacer un programa que seleccionemos un texto, demos a un boton y automáticamente lo delimite con [ B] y [ / B]????
Muy sencillo, voy a utilizar Visual Basic , pq es visual, y pq se tarda menos .
En primer lugar necesitamos un textbox... muy facil no ?
ok , tb neceistamos un boton, que será el boton de Negrita (Podeís poner una N , como en Word ).
Lo siguiente es hacer que el texto que seleccione en el textbox , al dar al boton , se actulize poniendo los codigos [ B] delante y [ /B] detrás (para que en EOL salga en negrita).
Muy sencillo
------------------------------
En el evento on_click del boton necesitamos
1.- Capturar el texto seleccionado. La propiedad del textbox .SelText lo hace por nosotros.
2.- Introducir detrás y delante del texto los códigos.
Esto es más complicao así que lo explicamos mejor
Necesitamos.
Conseguir el texto que hay a la izquierda del seleccionado para meter el [ B] y el que hay a la izquierda para meter el [ /B]. Y luego hacer
textototal= textoizquierda + [ B] + textoseleccionado + [ /B] + textoderecha.
Facil no?
Os pongo el código....(Visual Basic)
Private Sub Command1_Click()
Dim texto, empieza, longitud, textoizq, textoder, textoennegrita As Variant
empieza = Text1.SelStart
longitud = Text1.SelLength
texto = Text1.Text
textoizq = Left$(texto, empieza)
textoizq = textoizq + "[ B]"
textoder = Right(texto, Len(texto) - (empieza + longitud))
textoennegrita = Text1.SelText + "[/ B]"
Text1.Text = textoizq + textoennegrita + textoder
End Sub
[B] Los [ B] y los [/ B] van sin espacio, pero si lo quito no sale aquí XD [/B]
Las funciones son muy fáciles
Left$ me devuelve el texto a la izquierda desde un punto (el punto donde empieza el texto seleccionado)
Rigth lo mismo pero desde la izquierda
y ya ta..
Si teneís alguna duda, postead y la intentaremos solucionar...