Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Riudo en 25 Junio 2007, 20:40 pm

Título: Control MsFlexgrid: ¿Como Autoajustar las Celdas dependiendo del Texto?
Publicado por: Riudo en 25 Junio 2007, 20:40 pm

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

Título: Re: Control MsFlexgrid: ¿Como Autoajustar las Celdas dependiendo del Texto?
Publicado por: CeLaYa en 25 Junio 2007, 22:16 pm

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:

    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