CODE PERMETTANT DE LISTER LA TAILLE DES CONTROLS

cs_XavierH Messages postés 11 Date d'inscription vendredi 12 septembre 2003 Statut Membre Dernière intervention 8 août 2007 - 16 mars 2004 à 12:27
cs_jbaudens Messages postés 3 Date d'inscription mardi 17 septembre 2002 Statut Membre Dernière intervention 1 septembre 2004 - 18 mars 2004 à 10:29
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/21264-code-permettant-de-lister-la-taille-des-controls

cs_jbaudens Messages postés 3 Date d'inscription mardi 17 septembre 2002 Statut Membre Dernière intervention 1 septembre 2004
18 mars 2004 à 10:29
Sinon, si quelqu'un connait un truc pour mettre en concordance fe form en developpement (controles positionnés manuellement par pages de propriétés) et form execution (controles positionnés manuellement par le code)
cs_jbaudens Messages postés 3 Date d'inscription mardi 17 septembre 2002 Statut Membre Dernière intervention 1 septembre 2004
18 mars 2004 à 10:27
C'est un bon code. moi j'ai un autre exemple, qui envoie le resultat dans la fenetre execution.

exemple d'utilisation:

- mettre en pause l'appli.
- ctrl + G pour appeler la fenetre execution
- taper "Call get_obj_pos(form1)"
- le code s'affiche à la suite.


Public Sub get_obj_pos(frm As Form)
Dim i As Control

For Each i In frm.Controls

Debug.Print frm.Name & "." & i.Name & ".top =" & i.Top
Debug.Print frm.Name & "." & i.Name & ".left =" & i.Left
Debug.Print frm.Name & "." & i.Name & ".height =" & i.Height
Debug.Print frm.Name & "." & i.Name & ".width =" & i.Width

Next

End Sub
bizmoute Messages postés 29 Date d'inscription vendredi 21 mars 2003 Statut Membre Dernière intervention 21 novembre 2008
18 mars 2004 à 02:28
Labout, que veux-tu dire par vbscript et ScriptControle?
Aurais tu un exemple stp? Ça semble bien intéressant...
C'est pour réutiliser les valeurs du "\Tailles des controls.txt"?
bizmoute Messages postés 29 Date d'inscription vendredi 21 mars 2003 Statut Membre Dernière intervention 21 novembre 2008
18 mars 2004 à 02:27
Labout, que veux-tu dire par vbscript et ScriptControle?
Aurais tu un exemple stp? Ça semble bien intéressant...
C'est pour réutiliser les valeurs du "\Tailles des controls.txt"?
cs_labout Messages postés 1356 Date d'inscription samedi 8 décembre 2001 Statut Membre Dernière intervention 23 octobre 2006 8
16 mars 2004 à 19:11
Très bien je t'ai mis 10 si c'est un début c'est.
pour réinitialiser il suffit d'utiliser vbscript avec l'objet ScriptControle
cs_XavierH Messages postés 11 Date d'inscription vendredi 12 septembre 2003 Statut Membre Dernière intervention 8 août 2007
16 mars 2004 à 12:27
A la relecture, la procedure de fermeture est incorrecte.
remplacer " close #1" par " close xav"