Visual Basic - Ajustar MSFlexGrid

Deseo recorrer un MSFlexGrid y ajustar el ancho de la columna al ancho que abarca la palabra más larga escrita en alguna de las filas de esa columna...

Saludos!!

El siguiente procedimiento recorre un MSFlexGrid y lo ordena segun longitud de cadena

Public Sub AjustarGrid()
Dim fila As Integer
Dim columna As Integer
Dim ancho As Integer

With MiGrid 'El MSFlexGrid
For columna = 0 To .Cols - 1
ancho = 0

For fila = 0 To .Rows - 1
If TextWidth(.TextMatrix(fila, columna)) > ancho Then
ancho = TextWidth(.TextMatrix(fila, columna)) + 240
End If
Next fila

.ColWidth(columna) = ancho
Next columna
End With
End Sub

Saludos!!

Hola Veo el código y me parece bien, pero cuando lo ejecuto paso a paso no sé porque en la decisión

If TextWidth(.TextMatrix(fila, columna)) > ancho Then

NO obtiene el contenido de la celda para esa fila y columna es decir es igual a cero y por lo tanto nunca entra en la decisión.

Alguien sabrá porque no toma el texto de la celda

Salu2

Bueno la verdad a mi el código me corre perfectamente, lo único es que no funciona en módulos ya que TextWidth toma el ancho de letra del formulario, trata de revisar los nombres de las variables que esté escritos correctamente, en especial del MSFlexGrid y si declarastes bien las variables fila y columna o si les estás dando valores previos o algo por el estilo...

Bueno la verdad solo eso se me ocurre por el momento...

P.D.: si deseas puedes poner el código que estás utilizando siempre y cuando no sea exactamente igual al que puse, así podré correrlo y ver si me sucede igual...

Saludos!!

Gracias

Ya me funcionó es que no sé porque en el procedimiento Load del formulario no trabaja, lo coloqué en otro sitio y perfecto

Me pasó exactamente lo mismo, puse en una primera instancia la funcion en un modulo standar como funcion publica, pero me arrojaba el mismo error.

Cambie la funcion al formulario directamente donde la ocupo y funciona perfectamente sin problemas!, si alguien aun busca este tipo de codigo en la web, este funciona sin problemas! probado!

Gente Ahi acomode la función para que se pueda meter en un modulo .. así la podes reutilizar en distintos formularios , solo hay que agregarle la referencia de FORM y además ya que estamos le pasamos el MSFleXGrid también por referencia .

Anda de 10 !!: NO se si al día de hoy le servirá a alguien pero por las dudas lo comparto .

Abría que llamarla asi desde el formulario que se quiera usar



Luego la función en SI , para agregarla en algún modulo compartido y reutilizarla en la aplicación


Bueno espero les sirva , se ve que VB6 todavía sigue dando batalla hasta en windows 10 !! . je .
Saludos. Adrián

Buen aporte, por asuntos de la vida ya no programo, en ningún lenguaje, pero me llamo la atención que aun haya gente buscando este tipo de codigos, buen aporte!

Excelente, en 2022 y aun funciona!!!