Citar:
¿hay alguna forma en la cual pueda mostrar bien lo que escribo en el texArea?
Lo que entiendo, es que, quieres que a medida que vayas escribiendo en un textArea, incluso cuando introduzcas un salto de linea, se modifique el ancho de la fila del gridviews, para que se vea el texto completo en una celda ¿no?
Bueno, puedes emplear la propiedad height, de la fila donde estes metiendo el texto.
Te paso el código de ejemplo:
Tienes que crear un Gridview , un boton y un textArea
' gambas class file
PUBLIC SUB _new()
END
PUBLIC SUB Form_Open()
Titulos_Gridview1()
END
PUBLIC SUB Titulos_Gridview1()
WITH Gridview1
.header = 3
.rows.count = 4
.columns.count = 3
.Columns[0].title = "Columna 1"
.Columns[1].title = "Columna 2"
.Columns[2].title = "Columna 3"
.Columns[0].width = 608
.Columns[1].width = 80
.Columns[2].width = 80
.font.name = "Sans"
.font.size = 10
.Background = 16777215
.Foreground = 0
END WITH
END
PUBLIC SUB Button1_Click()
'meto el texto en la celda A1 (por ejemplo)
Gridview1[0, 0].text = TextArea1.text
Gridview1.rows[0].Height = 24 * contarSaltosdeLineas(TextArea1.text)
END
'subrrutina para contar los saltos de linea que hay en un texto
SUB contarSaltosdeLineas(texto AS String) AS Integer
DIM lineas_texto AS String[]
lineas_texto = Split(texto, "\n")
RETURN lineas_texto.count
END
'cada vez que presionas una tecla va escribiendo y "redimensiona el ancho de la fila"
PUBLIC SUB TextArea1_KeyPress()
Button1_Click()
END