Control MsFlexgrid: ¿Como Autoajustar las Celdas dependiendo del Texto?

[Riudo]

Hola gente. ¿Como puedo hacer que un Msflexgrid autoajuste el tamaño de todas las celdas para q qpa toda la informacion?. Porque ya probe con la propiedad WordWrap poniendolo en "true" pero no funciono porque la info de algunas celdas sale recortado. Gracias

[CeLaYa]

pues podrías obtener el ancho y largo del texto con el objeto printer y luego usar las propiedades colwidth y rowHeight del MSFlexgrid

un ejemplo:

Código [Seleccionar] Expandir


    Dim x As String
    Dim Largo As Long
    Dim Ancho As Long
   
   
    x = "bla bla bla bla bla bla bla bla bla bla!"
    Ancho = Printer.TextWidth(x)
    Largo = Printer.TextHeight(x)
   
   
   
    MSFlexGrid1.Col = 0
    MSFlexGrid1.Row = 0
    MSFlexGrid1.Text = x
    MSFlexGrid1.ColWidth(0) = Ancho + 50
    MSFlexGrid1.RowHeight(0) = Largo + 50