Anónimo
Justificar texto en msflexgrid en vb6
Como puedo hacer para que un texto largo incluido en una celda de un msflexgrid en VB6 se vea completo en varias lineas dentro de la celda sin necesidad de alargar demasiado la columna. Vendría a ser algo parecido a "ajustar texto" en excel. Gracias!
1 respuesta
Respuesta de José Saúl Méndez Alonso
1
Pon la propiedad WordWrap en True y dependiendo del ancho de la columna el texto se ajustará entre varias líneas
También necesitas un función que en base a la cantidad de caracteres encontrados te ajuste el alto de las filas
Private Function AjustaRenglon()
Dim nLineas As Integer
Dim nFilas As Integer
Const nAltoFila As Integer = 240
Const nLetras As Integer = 25
For nFilas = 1 To Grid3.Rows
nLineas = Int(Len(Grid3.TextMatrix(nFilas, 2)) / nLetras) + 1
If nLineas <> 0 Then
Grid3.RowHeight(nFilas) = nLineas * nAltoFila
End If
Next
End Function
También necesitas un función que en base a la cantidad de caracteres encontrados te ajuste el alto de las filas
Private Function AjustaRenglon()
Dim nLineas As Integer
Dim nFilas As Integer
Const nAltoFila As Integer = 240
Const nLetras As Integer = 25
For nFilas = 1 To Grid3.Rows
nLineas = Int(Len(Grid3.TextMatrix(nFilas, 2)) / nLetras) + 1
If nLineas <> 0 Then
Grid3.RowHeight(nFilas) = nLineas * nAltoFila
End If
Next
End Function