
28/01/2008, 10:50
|
 | | | Fecha de Ingreso: marzo-2007
Mensajes: 307
Antigüedad: 18 años, 2 meses Puntos: 17 | |
Re: Tamaño celdas de una MSFlexgrid 1º crea un label en tu formulario, la propiedad autosize dejala como true y la propiedad visible dejala en false (para ke no se vea)
2º cuando llenes tu grid (si lo haces "a mano") escribe el siguiente codigo :
grid1.textmatrix(x,1)= con("descripcion")
Label1.Caption = con("descripcion")
If Label2.Width > Grid1.ColWidth(1) Then Grid1.ColWidth(1) = Label2.Width
con esto cuando estoy ingresando datos en la matriz, si el ancho del texto ke ingreso es mayor al ancho de la columna uno de la grid, ajusta la grid a su nuevo ancho
3º si ya tienes llena tu matriz, para cambiarla debes recorrerla ejemplo:
for x=1 to grid1.rows-1
label2.caption=grid1.textmatrix(x,1)
If Label2.Width > Grid1.ColWidth(1) Then Grid1.ColWidth(1) = Label2.Width
next x
este ejemplo funciona para cambiar el ancho de la columna 1 del msflexgrid, tu debes modificarlo para hacerlo funcionar con tu codigo, espero te sirva |