Visual Basic - mshflexgrid wordwrap

Life is soft - evento anual de software empresarial
   
Vista:

mshflexgrid wordwrap

Publicado por Jorge C (10 intervenciones) el 24/05/2009 21:42:17
Saludos

Como puedo ajustar un texto muy largo en una celda de mshflexgrida, ya utilice la propiedad wordwrap a true y no hace nada..
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:mshflexgrid wordwrap

Publicado por J (134 intervenciones) el 26/05/2009 16:40:38
La propiedad wordwrap establecida a True te permite mostrar texto en varias líneas en una sola celda para lo cual debes darle a la celda la altura necesaria para que pueda mostrar todo su contenido.

Para eso puedes utilzar un procedimiento que te ajuste las celdas del MSFlexGrid al texto que contengan:

'***********************************************************************************
Para ajustar alto:
'***********************************************************************************

'***Ajusta el alto de las celdas de un MSFlexGrid al texto que contiene
Private Sub AjustarAlto()
Dim alto As Double

With MiFlexGrid '***Nombre del MSFlexGrid
For i = 0 To .Rows - 1
alto = 0

For j = 0 To .Cols - 1
If TextHeight(.TextMatrix(i, j)) > alto Then
alto = TextHeight(.TextMatrix(i, j))
End If
Next j

.RowHeight(i) = alto + 100
Next i
End With
End Sub

'***********************************************************************************
Para ajustar ancho:
'***********************************************************************************

'***Ajusta el ancho de las celdas de un MSFlexGrid al texto que contiene
Private Sub AjustarAncho()
Dim ancho As Double

With MiFlexGrid '***Nombre del MSFlexGrid
For i = 0 To .Cols - 1
ancho = 0

For j = 0 To .Rows - 1
If TextWidth(.TextMatrix(j, i)) > ancho Then
ancho = TextWidth(.TextMatrix(j, i))
End If
Next j

.ColWidth(i) = ancho + 100
Next i
End With
End Sub

Espero te sea de utilidad...

Saludos!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar