SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: sk8erlucas en Viernes 14 de Marzo de 2003, 23:04

Título: Re: FlexGrid.- Redimensionado automático
Publicado por: sk8erlucas en Viernes 14 de Marzo de 2003, 23:04
Tengo una pregunta sobre el microsofth FelxiGrid.
Cuando lo creo y entro a ejecutar el programa todo anda bien, y puedo cambiar el tamaño de las columnas y filas. Pero lo que yo quiero es que el tamaño se establezca al inicio del programa.
Si alguien sabe como ayudarme le estaría muy agradecido.

sk8erlucas.
Título: FlexGrid.- Redimensionado automático
Publicado por: J.M.Movilla en Sábado 15 de Marzo de 2003, 11:36
Supongo que lo que deseas es definir la anchura de las columnas...

Esto te lo resolverá:

___________________________

Dim aAncho

Private Sub Form_Load()

' Aquí parametrizas la anchura de las columnas que quieras visualizar; por ejemplo:
aAncho = Array(1350, 3700, 2030, 3000, 550, 2000)
   
End Sub



Private Sub DoInitialSettings()
Dim i%
   
FlexGrid1.Row = 0
FlexGrid1.ColAlignment(0) = 7
   
For i = 0 To FlexGrid1.Cols - 1

' Establece la anchura de la columna
FlexGrid1.ColWidth(i) = aAncho(i)

' Otros parámetros que puedan interesarte...
FlexGrid1.Col = i
FlexGrid1.CellFontSize = 14
FlexGrid1.CellAlignment = 4
       
Next i

FlexGrid1.ScrollTrack = True
FlexGrid1.CellTextStyle = flexTextInset
FlexGrid1.BorderStyle = flexBorderSingle
   
End Sub

__________________________

Saludos