https://foro.gambas-es.org/viewtopic.php?f=4&t=2006&p=11707#p11707
-----------------------------------
jsbsan
Jueves, 03 Noviembre 2011, 20:20

Re: Duda Sobre Grilla Y Tabla
-----------------------------------
[quote]¿hay alguna forma en la cual pueda mostrar bien lo que escribo en el texArea?[/quote]

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

[code linenumbers=false syntax=gambas]' 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
[/code]

[url=http://www.imagengratis.org/?v=anchofilaadap.png][img]http://www.imagengratis.org/thumbs/anchofilaadap.png[/img]


