Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Me.InsideWidth, Me.InsideHeight

Me.InsideWidth, Me.InsideHeight

26 réponses
Avatar
J-Pierre
Bonsoir tout le monde.

Suivant que j'ouvre "directement" un formulaire, ou bien que je suis en mode création et passe en mode Formulaire, les propriétés
Me.InsideWidth et Me.InsideHeight ne me retournent pas les mêmes valeurs pendant les évènements ouverture ou chargement du
formulaire.

Ouverture directe : 14850 et 8415
Mode création -> mode formulaire: 15300 et 9195

15300 et 9195 semblent correctes, le problème, c'est que je ne peux pas demander à mes utilisateurs de passer par le mode
Création....

Pour avoir la bonne vraie valeur, je fais comment ?

Merci d'avance
J-Pierre
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2 3
Avatar
J-Pierre
Bonsoir Arnaud,

J'explique encore un coup:

Je veux adapter la taille d'un sous-formulaire à la taille de la fenêtre. Suivant la manière dont le formulaire est ouvert,
j'obtiens des tailles de fenêtre différentes:

1) Formulaire en mode création, passage en mode formulaire
insideHeight ou WindowsHeigth = 9195
insideWidth ou WindowsWidth = 15300

2) Formulaire ouvert par double clic depuis la fenêtre base de données
insideHeight ou WindowsHeigth = 8415
insideWidth ou WindowsWidth = 14850

3) Formulaire ouvert par doCmd.openForm depuis un autre formulaire
insideHeight ou WindowsHeigth = 8160
insideWidth ou WindowsWidth = 13260

Il semblerait que le 1) soit correct, 2) et 3) faux.

Le code utilisé:

MsgBox "InsideHeight=" & Me.InsideHeight & vbCrLf & _
"InsideWidth=" & Me.InsideWidth & vbCrLf & vbCrLf & _
"HeightHeader=" & Me.Section(acHeader).Height & vbCrLf & _
"HeightDetail=" & Me.Section(acDetail).Height & vbCrLf & _
"HeightFooter=" & Me.Section(acFooter).Height & vbCrLf & _
"TotalFormHeight=" & Me.Section(acHeader).Height + _
Me.Section(acDetail).Height + _
Me.Section(acFooter).Height & vbCrLf & _
"TotalFormWidth=" & Me.Width & vbCrLf & vbCrLf & _
"WindowHeight=" & Me.InsideHeight & vbCrLf & _
"WindowWidth=" & Me.InsideWidth

J-Pierre
Avatar
Raymond [mvp]
Bonsoir J-Pierre.

mais qu'est-ce que tu nous fais à cette heure-là ?
on ne peut pas adapter un sous-formulaire à la taille d'une fenêtre mais
seulement à la taille d'un contrôle contenant un sous-formulaire. tu parles
du contrôle ou du sous-formulaire ?

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"J-Pierre" a écrit dans le message de
news:
Bonsoir Arnaud,

J'explique encore un coup:

Je veux adapter la taille d'un sous-formulaire à la taille de la fenêtre.
Suivant la manière dont le formulaire est ouvert,

j'obtiens des tailles de fenêtre différentes:

1) Formulaire en mode création, passage en mode formulaire
insideHeight ou WindowsHeigth = 9195
insideWidth ou WindowsWidth = 15300

2) Formulaire ouvert par double clic depuis la fenêtre base de données
insideHeight ou WindowsHeigth = 8415
insideWidth ou WindowsWidth = 14850

3) Formulaire ouvert par doCmd.openForm depuis un autre formulaire
insideHeight ou WindowsHeigth = 8160
insideWidth ou WindowsWidth = 13260

Il semblerait que le 1) soit correct, 2) et 3) faux.

Le code utilisé:

MsgBox "InsideHeight=" & Me.InsideHeight & vbCrLf & _
"InsideWidth=" & Me.InsideWidth & vbCrLf & vbCrLf & _
"HeightHeader=" & Me.Section(acHeader).Height & vbCrLf & _
"HeightDetail=" & Me.Section(acDetail).Height & vbCrLf & _
"HeightFooter=" & Me.Section(acFooter).Height & vbCrLf & _
"TotalFormHeight=" & Me.Section(acHeader).Height + _
Me.Section(acDetail).Height + _
Me.Section(acFooter).Height & vbCrLf & _
"TotalFormWidth=" & Me.Width & vbCrLf & vbCrLf & _
"WindowHeight=" & Me.InsideHeight & vbCrLf & _
"WindowWidth=" & Me.InsideWidth

J-Pierre




Avatar
J-Pierre
Bonsoir Raymond,

Oui, bien sûr, je me suis mal exprimé, je parle du contrôle de type sous-formulaire, qui contient un formulaire comme objet source.
Ce sont les dimensions de ce contrôle que je voudrais adapter à la largeur de la fenêtre.

J-Pierre

"Raymond [mvp]" a écrit dans le message de news:
Bonsoir J-Pierre.

mais qu'est-ce que tu nous fais à cette heure-là ?
on ne peut pas adapter un sous-formulaire à la taille d'une fenêtre mais
seulement à la taille d'un contrôle contenant un sous-formulaire. tu parles
du contrôle ou du sous-formulaire ?

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


Avatar
3stone
re,

"J-Pierre"
... je parle du contrôle de type sous-formulaire, qui contient un formulaire comme objet source.
Ce sont les dimensions de ce contrôle que je voudrais adapter à la largeur de la fenêtre.



Pas forcément plus clair ;-)

Car au début du fil, tu disais:
"une fonction ou API qui me permet de récupérer les dimensions
de la fenêtre ou de l'écran physique sera la bienvenue"


Mais, j'ai l'impression que tu veux adapter la taille d'un contrôle sous-formulaire
lorsque tu redimmensionne le formulaire principal...

Je me trompe ?

:-)



--
A+
Pierre (3stone) Access MVP
--------------------------------------
Une pour tous, tous pour une ;-)
http://users.skynet.be/mpfa/charte.htm
--------------------------------------

Avatar
J-Pierre
T'es pas encore au lit ? :-)))))

Ben, je croyais être clair...... ;-((((((

Je veux juste redimensionner le contrôle sous-formulaire, mais je ne redimensionne pas le formulaire principal, Access fait ça tout
seul pour la largeur, et pour la hauteur de la section Détail du formulaire principal (où se trouve mon contrôle), j'ai prévu très
très grand.

Le redimensionnement fonctionne, le problème, c'est que suivant la manière dont j'ouvre le formulaire, mon sous-formulaire fait une
taille différente.....

Bon, on verra ça demain, les ingénieurs MS vont passer par là, un coup de baguette magique.....

A propos, je suis en Access 2002, format de fichier 2002

Bonne nuit, Pierre

J-Pierre


" a écrit dans le message de news:e%
re,

"J-Pierre"
... je parle du contrôle de type sous-formulaire, qui contient un formulaire comme objet source.
Ce sont les dimensions de ce contrôle que je voudrais adapter à la largeur de la fenêtre.



Pas forcément plus clair ;-)

Car au début du fil, tu disais:
"une fonction ou API qui me permet de récupérer les dimensions
de la fenêtre ou de l'écran physique sera la bienvenue"


Mais, j'ai l'impression que tu veux adapter la taille d'un contrôle sous-formulaire
lorsque tu redimmensionne le formulaire principal...

Je me trompe ?

:-)



--
A+
Pierre (3stone) Access MVP
--------------------------------------
Une pour tous, tous pour une ;-)
http://users.skynet.be/mpfa/charte.htm
--------------------------------------







Avatar
J-Pierre
Bonjour tout le monde,

Bon, j'ai complètement changé mon code, j'utilise maintenant la résolution de l'écran et le code d'Anor pour calculer la taille de
mon contrôle sous-formulaire. Voilà le code, je ne publie pas la partie LitResolutionEcran avec les API qui est archiconnue, elle
initialize 4 variables, et dans mon cas elle retourne:
LargeurEcran 24
HauteurEcran v8
PPPx–
PPPy–

Ce qui est curieux, ce que je doive faire - 1900 pour avoir la bonne hauteur. Pour la largeur, - 30, ça peut s'expliquer avec les
bords de la fenêtre qui ne sont pas visibles, et puis, 30 twips, c'est si petit.

Donc la question: Qu'est-ce que j'ai oublié qui correspond à ce 1900 ?

Merci d'avance
J-Pierre
-----------------------------------------------------
Pour appeler la fonction:

Call redimGraphique(Forms(Me.Name), Me.GRAPHIQUE_Achats_SF)

La fonction

Public Function redimGraphique(FRM As Form, SF As SubForm)

Call LitResolutionEcran

SF.Left = 0
SF.Top = 0
SF.Width = Int(LargeurEcran / PPPx * 1440) - 30
SF.Height = Int(HauteurEcran / PPPy * 1440) - FRM.Section(acHeader).Height - SF.Top - 1900
FRM.Section(acDetail).Height = SF.Height + 15

End Function
--------------------------------------------------
Avatar
3stone
Salut,

"J-Pierre"

Donc la question: Qu'est-ce que j'ai oublié qui correspond à ce 1900 ?




Peut-être le sélecteur et autre ascenseur...


--
A+
Pierre (3stone) Access MVP
--------------------------------------
Une pour tous, tous pour une ;-)
http://users.skynet.be/mpfa/charte.htm
--------------------------------------

Avatar
J-Pierre
Non, Pierre, rien de tout ça, peut-être les barres de menus et d'outils et d'état ?


"3stone" a écrit dans le message de news:%
Salut,

"J-Pierre"

Donc la question: Qu'est-ce que j'ai oublié qui correspond à ce 1900 ?




Peut-être le sélecteur et autre ascenseur...


--
A+
Pierre (3stone) Access MVP
--------------------------------------
Une pour tous, tous pour une ;-)
http://users.skynet.be/mpfa/charte.htm
--------------------------------------







Avatar
Anor
Bonjour J-Pierre,

J-Pierre :
| j'utilise maintenant la résolution de l'écran et le code d'Anor pour calculer la taille de
| mon contrôle sous-formulaire.

c'est sympa de dire qu'il y a du code qui vient de moi car je me demande
encore lequel ;-)))

--
à+
Arnaud
--------------------------------------------------
*Avant toute chose* : http://users.skynet.be/mpfa/
Access Memorandum - http://memoaccess.free.fr
/Réponses souhaitées sur ce forum, merci/
--------------------------------------------------
Avatar
J-Pierre
Bonsoir Anor,

La formule de calcul pour convertir des je sais pas quoi (1024x768) en twips.

Tu étais encore tellement saoûl que tu l'as écrite sans savoir ce que tu calculais..........

Des je sais pas quoi, c'est quoi, au fait ?????????

J-Pierre

"Anor" <http://memoaccess.free.fr/anor/email.htm> a écrit dans le message de news:%236x0Y0$
Bonjour J-Pierre,

J-Pierre :
| j'utilise maintenant la résolution de l'écran et le code d'Anor pour calculer la taille de
| mon contrôle sous-formulaire.

c'est sympa de dire qu'il y a du code qui vient de moi car je me demande
encore lequel ;-)))

--
à+
Arnaud
--------------------------------------------------
*Avant toute chose* : http://users.skynet.be/mpfa/
Access Memorandum - http://memoaccess.free.fr
/Réponses souhaitées sur ce forum, merci/
--------------------------------------------------




1 2 3