CODE PERMETTANT DE LISTER LA TAILLE DES CONTROLS

Signaler
Messages postés
11
Date d'inscription
vendredi 12 septembre 2003
Statut
Membre
Dernière intervention
8 août 2007
-
cs_jbaudens
Messages postés
3
Date d'inscription
mardi 17 septembre 2002
Statut
Membre
Dernière intervention
1 septembre 2004
-
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

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

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

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

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
5
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