cs_XavierH
Messages postés11Date d'inscriptionvendredi 12 septembre 2003StatutMembreDernière intervention 8 août 2007
-
16 mars 2004 à 12:27
cs_jbaudens
Messages postés3Date d'inscriptionmardi 17 septembre 2002StatutMembreDerniè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.
cs_jbaudens
Messages postés3Date d'inscriptionmardi 17 septembre 2002StatutMembreDerniè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és3Date d'inscriptionmardi 17 septembre 2002StatutMembreDerniè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
bizmoute
Messages postés29Date d'inscriptionvendredi 21 mars 2003StatutMembreDernière intervention21 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és29Date d'inscriptionvendredi 21 mars 2003StatutMembreDernière intervention21 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és1356Date d'inscriptionsamedi 8 décembre 2001StatutMembreDernière intervention23 octobre 20068 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és11Date d'inscriptionvendredi 12 septembre 2003StatutMembreDerniè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"
18 mars 2004 à 10:29
18 mars 2004 à 10:27
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
18 mars 2004 à 02:28
Aurais tu un exemple stp? Ça semble bien intéressant...
C'est pour réutiliser les valeurs du "\Tailles des controls.txt"?
18 mars 2004 à 02:27
Aurais tu un exemple stp? Ça semble bien intéressant...
C'est pour réutiliser les valeurs du "\Tailles des controls.txt"?
16 mars 2004 à 19:11
pour réinitialiser il suffit d'utiliser vbscript avec l'objet ScriptControle
16 mars 2004 à 12:27
remplacer " close #1" par " close xav"