Hola a todos, vuelvo con una duda sobre las grillas y las tablas, bueno les cuento lo que quiero hacer.
Quiero mostrar en una fila de una grilla o tabla lo que escribo en un textArea, pero si escribo hacia abajo, en la fila no se ve bien solamente el encabezado del texArea, y aqui la duda, ¿hay alguna forma en la cual pueda mostrar bien lo que escribo en el texArea?
Duda Sobre Grilla Y Tabla
Subject: Re: Duda Sobre Grilla Y Tabla
Supongo que te refieres a que cuando hay mucho texto, éste no se ve completo en la celda de la "grilla" o gridview, porque la altura de las filas es insuficiente. Creo recordar que las filas tienen una propiedad "height" para determinar su altura y "Width" para la anchura. Si tu grilla se llama por ejemplo Gridview1, sería algo como:
que pondría la tercera fila con una altura de 30 pixels y la primera columna con una anchura de 200.
Saludos
Gridview1.Rows[2].Height = 30
Gridview1.Columns[0].Widht = 200
Gridview1.Columns[0].Widht = 200
que pondría la tercera fila con una altura de 30 pixels y la primera columna con una anchura de 200.
Saludos
Subject: Re: Duda Sobre Grilla Y Tabla
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
Citar:
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
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
Subject: Re: Duda Sobre Grilla Y Tabla
Gracias por las respuestas, pero me falto agregar, quisas me sirva sus respuestas, es que esos textos los sacos desde una tabla de base de datos.
Subject: Re: Duda Sobre Grilla Y Tabla
Last edited by Haseo on Friday, 04 November 2011, 04:58; edited 1 time in total
Creo que ya lo solucione, pero no se me ve muy bien a mi manera, pero algo es algo
Gracias a la ayuda de jguardon
lo solucione de esta manera
http://imageshack.us/photo/my-image...2011110400.png/
Gracias a la ayuda de jguardon
Gridview1.Rows[2].Height = 30
Gridview1.Columns[0].Widht = 200
Gridview1.Columns[0].Widht = 200
lo solucione de esta manera
http://imageshack.us/photo/my-image...2011110400.png/
DIM res AS Result
DIM i AS Integer
DIM cantidad AS Integer
DIM texto AS String[]
cantidad = TextBox2.Text
res = conexion.$Con.Exec("SELECT * FROM comentario ORDER BY rand() LIMIT " & cantidad & "")
GridView1.Clear 'Borro los datos del tableview
GridView1.Rows.Count = res.Count 'Agrego las filas que utilizare
FOR i = 0 TO (res.Count - 1) ' Ciclo para llenar el tableview
Gridview1.Rows[i].Height = 108
GridView1[i, 0].Text = res["id_comentario"] & "b" & "v"
GridView1[i, 1].Text = res["comentario"]
res.MoveNext
NEXT
conexion.$Con.Close 'Cierro la conexión
DIM i AS Integer
DIM cantidad AS Integer
DIM texto AS String[]
cantidad = TextBox2.Text
res = conexion.$Con.Exec("SELECT * FROM comentario ORDER BY rand() LIMIT " & cantidad & "")
GridView1.Clear 'Borro los datos del tableview
GridView1.Rows.Count = res.Count 'Agrego las filas que utilizare
FOR i = 0 TO (res.Count - 1) ' Ciclo para llenar el tableview
Gridview1.Rows[i].Height = 108
GridView1[i, 0].Text = res["id_comentario"] & "b" & "v"
GridView1[i, 1].Text = res["comentario"]
res.MoveNext
NEXT
conexion.$Con.Close 'Cierro la conexión
Last edited by Haseo on Friday, 04 November 2011, 04:58; edited 1 time in total
Page 1 of 1
You cannot post new topicsYou cannot reply to topics
You cannot edit your posts
You cannot delete your posts
You cannot vote in polls
You cannot attach files
You can download files
You cannot post calendar events
This is a "Lo-Fi" version of our main content. To view the full version with more information, formatting and images, please click here.
Powered by Icy Phoenix based on phpBB
Design by DiDiDaDo
Generation Time: 0.1433s (PHP: -20% SQL: 120%)
SQL queries: 23 - Debug Off - GZIP Enabled