none
wrap text en MSHFlexGrid RRS feed

  • Pregunta

  • En una aplicación de VB6 estoy cargando datos en un MSHFlexGrid, en algunas ocasiones el texto del encabezado de la columna es muy largo y me gustaría que definiendo un ancho máximo para la columna, se pudiera AJUSTAR el TEXTO del encabezado de la columna en forma similar a como se hace en Excel con la opción Wrap Text, ¿hay en el MSHFlexGrid alguna propiedad para hacer esto?

    Saludos y gracias


    cyndyrdz

    miércoles, 3 de julio de 2013 14:54

Respuestas

  • Qué bárbara! me pregunto y me contesto...ya quedó:

    with MSHFlexGrid1

            .Row = 0 'Para posicionarme en el primer renglon que es Fixed (mis encabezados)
            .Col = 0   'Para posicionarme en la primer columna que es la que voy a configurar distinta a las otras
            .TextMatrix(0, 0) = "Fecha del Ultimo Mtto Realizado"    'Encabezado largo de la columna
            .RowHeight(0) = 960   'Para que me ponga 4 renglones en los encabezados
            .ColWordWrapOption(0) = flexWordBreakEllipsis   'Para que haga el Wrap Text en el encabezado
            .CellFontBold = True    'Para que el encabezado de esta columna esté en Bold
            .CellAlignment = flexAlignCenterCenter 'Para que el encabezado de esta columna lo centre horizontal y vertical
            Set .CellPicture = imgSort.Picture 'Para agregar al encabezado una imagen desde un image
            .CellPictureAlignment = flexAlignRightTop ' P/q la imagen del encabezado la ponga a la derecha de la celda
            .CellBackColor = &HC0FFC0   'Verde clarito  'Para cambiar el color de fondo del encabezado de esta columna
            .CellForeColor = vbBlack    'Para cambiar el color de la letra del encabezado de esta columna

    end with


    cyndyrdz

    miércoles, 3 de julio de 2013 15:38

Todas las respuestas

  • Qué bárbara! me pregunto y me contesto...ya quedó:

    with MSHFlexGrid1

            .Row = 0 'Para posicionarme en el primer renglon que es Fixed (mis encabezados)
            .Col = 0   'Para posicionarme en la primer columna que es la que voy a configurar distinta a las otras
            .TextMatrix(0, 0) = "Fecha del Ultimo Mtto Realizado"    'Encabezado largo de la columna
            .RowHeight(0) = 960   'Para que me ponga 4 renglones en los encabezados
            .ColWordWrapOption(0) = flexWordBreakEllipsis   'Para que haga el Wrap Text en el encabezado
            .CellFontBold = True    'Para que el encabezado de esta columna esté en Bold
            .CellAlignment = flexAlignCenterCenter 'Para que el encabezado de esta columna lo centre horizontal y vertical
            Set .CellPicture = imgSort.Picture 'Para agregar al encabezado una imagen desde un image
            .CellPictureAlignment = flexAlignRightTop ' P/q la imagen del encabezado la ponga a la derecha de la celda
            .CellBackColor = &HC0FFC0   'Verde clarito  'Para cambiar el color de fondo del encabezado de esta columna
            .CellForeColor = vbBlack    'Para cambiar el color de la letra del encabezado de esta columna

    end with


    cyndyrdz

    miércoles, 3 de julio de 2013 15:38
  • Hola puedes mostrar un imagen para ver como queda.

    Pedro Ávila
    "El hombre sabio querrá estar siempre con quien sea mejor que él."
    Lima - Perú

    miércoles, 3 de julio de 2013 17:06
  • Claro!!! solo que no se como ponerla aquí...

    cyndyrdz

    miércoles, 3 de julio de 2013 19:43
  • Asi


    Pedro Ávila
    "El hombre sabio querrá estar siempre con quien sea mejor que él."
    Lima - Perú

    miércoles, 3 de julio de 2013 19:50
  • a ver, es un .jpg, me dices si lo puedes ver bien:

    las columnas con encabezados con flechitas son por las que se puede ordenar el grid

    las columnas que no son blancas, se pueden capturar, con un text box unas y otras con un combo box

    Saludos!!


    cyndyrdz

    y las de fecha y hora se capturan con un DTPicker

    POR CIERTO: LA PROPIEDAD WORDWRAP DEL MSHFLEXGRID DEBE SER TRUE

    • Propuesto como respuesta Pedro Ávila miércoles, 3 de julio de 2013 20:06
    • Editado Cynthia Rodriguez miércoles, 3 de julio de 2013 20:07 informacion importante
    miércoles, 3 de julio de 2013 19:59
  • Quedo bien no sabía que se podía hacer eso en vb6.0 ya tiempo que no programo en vb6.0 estoy en net.

    Gracias por mostrar como acabo tu flex.


    Pedro Ávila
    "El hombre sabio querrá estar siempre con quien sea mejor que él."
    Lima - Perú

    miércoles, 3 de julio de 2013 20:08