Principales respuestas
wrap text en MSHFlexGrid

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
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 columnaend with
cyndyrdz
- Marcado como respuesta Cynthia Rodriguez 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 columnaend with
cyndyrdz
- Marcado como respuesta Cynthia Rodriguez miércoles, 3 de julio de 2013 15:38
-
-
-
-
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
-