Code permettant de lister la taille des controls

Commenter

Contenu du snippet

Je ne sais pas si ca pourra etre utile a quelqu'un mais je le poste quand meme.
Je developpe une appli sensee tourner sur plusieurs machines et donc sencee prendre en compte le resize des controls.
Je ne sais pas si il existe une solution miracle mais pour ma part j'ai opte pour une mise en page specifiaque a chaque resolution.
Bref, il faut se pallucher tous les parametres de taille et de position des controles manuellement...c'est penible.
Ce petit bout de code, ( vu la longueur je n'ai pas mis de zip), cree un fichier Taille des controls.txt dans le app.path et va y inscrire toutes les tailles des controls comme suit.

With Control1
. Height= xxx
. Top = xxx
. Left = xxx
. width = xxx
end with

Ensuite ya plus qu a copier/coller ce qui vous interresse.

PS: soyez pas trop durs, je debute

Source / Exemple : 


Public Function ScanControlsize()
    Dim xav As Integer  ' Numero du fichier pour l'ouverture
    Dim ctrl As Control ' Control
    
    xav = FreeFile      ' On recupere un numero de fichier libre pour l'ouverture
    Open App.Path & "\Tailles des controls.txt" For Output As #xav ' on ouvre le fichier

    On Error Resume Next    ' Continu si erreur
    For Each ctrl In form1.Controls ' pour chaque controls de la form1
        Print #xav, ""              ' blablabla
        If ctrl.index = "" Then Print #xav, "with form1." & ctrl.Name
        If ctrl.index <> "" Then Print #xav, "with form1." & ctrl.Name & "(" & ctrl.index & ")"
        Print #xav, "   .height = " & ctrl.Height
        Print #xav, "   .left = " & ctrl.Left
        Print #xav, "   .top = " & ctrl.Top
        Print #xav, "   .width = " & ctrl.Width
        Print #xav, "end with"
        Print #xav, ""
     
    Next ctrl

Close #1    ' on ferme le fichier quand c'est finit.
End Function

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_XavierH)