Hola!
He estado haciendo pruebas y siempre me sale lo mismo,un MSFLEXGRID que al final en la ultima columna de la derecha se me genera un espacio entre esta y el narco del mismo de un tamaño similar al de la columna algo mas pequeño prox. un 30% menos; he buscado el tamaño del Label en mi caso 1000 y el codigo generado es este :
Codigo:
Código vb:
Ver originalPrivate Sub Form_Load()
Dim nrcol As Integer
nrcol = 0
For nrcol = 0 To MSFlexGrid1.Cols - 1
' Asignamos la Columa
MSFlexGrid1.Col = nrcol
' Ahora podemos asignarle el tamaño que queramos
MSFlexGrid1.ColWidth(nrcol) = 1000
Next
End Sub
Como puedo eliminar ese escedente que no se porque me sale.
Nota.: He probado tambien con :
Código vb:
Ver originalMSFlexGrid1.ColWidth(nrcol) = lbl_Milabel.Width
Un saludo