Re: Rescatar Linea De Un TextArea
Hola Death!.
A ver que te parece este ejemplo.
Necesitas un TextArea y un TextBox.Haz click en una linea del TextArea en
cualquier parte y el TextBox te mostrara el contenido de la linea seleccionada del TextArea.
PRIVATE lineas AS String[]
PRIVATE texto AS String
PUBLIC SUB Form_Open()
txaTexto.Text = "AAAAAAAAAAAAAAAAAAAA" & "\n"
txaTexto.Text = txaTexto.Text & "BBBBBBBBBBBBBBBBBBBBBB" & "\n"
txaTexto.Text = txaTexto.Text & "CCCCCCCCCCCCCCCCCCCCCC" & "\n"
texto = txaTexto.Text 'Almacena todo el contenido del textarea en la variable texto
lineas = Split(texto, "\n") 'Trocea la cadena en partes cada vez que encuentra "\n" y las asigna al array lineas.
END
PUBLIC SUB txaTexto_Cursor()
DIM numerolinea AS Integer
numerolinea = txaTexto.ToLine(txaTexto.pos) 'Convierte la posición del cursor a número de linea
txtMuestraLinea.Text = lineas[numerolinea] 'Muestra el contenido del array lineas con el indice numerolinea
END
Probé con el evento MouseDown pero no me funciono igual.
Saludos.
===================
Gambas Básico
"No es un bug, es una característica no documentada"
Foro 
Albacete
