Redimensionnement du controle msflexgrid ( pas le tableau, mais le contour )

Commenter

Contenu du snippet

Voici un petit bout de programme qui permet de redimensionner un controle MSFlexGrid par rapport à la taille du tableau.
Dans mon code, j'ai fixé des limites pour pas avoir une dimension exédant la taille de mon Form.
libre a vous de les changer.
bon amusement.

Source / Exemple : 


' adapte la taille de la fenêtre du msfgrid
MSF_Resultat.Width = 300

    For vI = 0 To MSF_Resultat.Cols - 1
        If MSF_Resultat.Width < 6615 Then ' limite = 6615
            
            MSF_Resultat.Width = MSF_Resultat.Width + MSF_Resultat.ColWidth(vI) + 10
        Else
            MSF_Resultat.Width = 6615 ' dès que la limite est atteinte il arrête le dimensionement
            vI = MSF_Resultat.Cols
        End If
    Next
MSF_Resultat.Height = 300
    For vE = 0 To MSF_Resultat.Rows - 1
        If MSF_Resultat.Height < 2700 Then ' limite = 2700    
            MSF_Resultat.Height = MSF_Resultat.Height + MSF_Resultat.RowHeight(vE) + 10
        Else
            MSF_Resultat.Height = 2700 ' dès que la limite est atteinte il arrête le dimensionement
            vE = MSF_Resultat.Rows
        End If
    Next

Conclusion :


Voilà, je me servit de ça pour le dimensionner :
  • en hauteur : jusqu'a ce qu'il atteigne mes boutons commandes ( un peu avant quand même ;-) )
  • en largeur : environ la moitié d'un form en 1024 * 768.

pour l'instant j'ai pas vue de faille donc ...
si vous trouvez mieux, faîte moi signe.

A voir également

Du même auteur (cs_rodcobalt22)