Discussion :

[User]

Bonjour,

Comment puis-je obtenir les dimensions de ma fenêtre principale qui contient mes formulaires (sous Access).

J'ai remarqué que sous VB on peut utiliser l'objet Screen et on peut faire Screen.Width par exemple. Mais comment faire sous Access

Merci par avance pour vos réponses

[tee_grandbois]

Extrait de l'aide

Propriétés InsideHeight, InsideWidth

Utilisez les propriétés InsideHeight et InsideWidth pour déterminer la hauteur et la largeur (en twips) de la fenêtre contenant un formulaire.

Paramétrage

Propriété InsideHeight. Valeur de type Entier exprimée en twips et représentant la hauteur de la fenêtre d'un formulaire.


Propriété InsideWidth. Valeur de type Entier exprimée en twips et représentant la largeur de la fenêtre d'un formulaire.

Les propriétés InsideHeight et InsideWidth sont uniquement accessibles au moyen d'une macro ou de Visual Basic et peuvent être paramétrées à tout moment.

Remarques

Si vous voulez déterminer les dimensions intérieures d'un formulaire lui-même, utilisez la propriété Largeur (Width) pour déterminer la largeur du formulaire et la somme des hauteurs des sections visibles du formulaire pour déterminer sa hauteur (la propriété Hauteur (Height) s'applique uniquement aux sections de formulaire, et non aux formulaires). L'intérieur d'un formulaire comprend la région intérieure du formulaire, à l'exclusion des barres de défilement et des sélecteurs d'enregistrements.

Vous pouvez aussi utiliser les propriétés HauteurFenêtre (WindowHeight) et LargeurFenêtre (WindowWidth) pour déterminer la hauteur et la largeur de la fenêtre contenant un formulaire.

Si une fenêtre est réduite, le paramétrage de ces propriétés n'a aucun effet tant que la taille normale de la fenêtre n'est pas rétablie.

[User]

Salut tee_grandbois,
et merci pour ta recherche,
malheureusement les propriétés InsideWidth, WindowWidth sont propre au formulaire.

Je précise ma question je souhaiterai une propriété, une méthode ou autre qui me donne en somme la largeur (et la hauteur) de mon écran mais sous Access.

Sous VB c'est Screen.Width y a-t-il l'équivalent sous Access ?

Merci pour vos réponses.

[tee_grandbois]

Désolé, j'ai mal interprété ta demande. Mais je ne vois pas ce que tu cherches, tu veux parler de la résolution de l'écran ou de la taille de la fenêtre base ?

[User]

La taille de l'écran en twips en faite je souhaite redimensionner mon formulaire au 3/4 de l'écran (par exemple) sous Access, j'ai donc besoin de la taille de mon form (ca c'est bon: Me.Width,Me.WindowWidth etc..) et de la taille de mon écran après je fait:

Me.Width=MonEcran.Width*0.75

Malheureusement je n'arrive pas à obtenir la taille de l'écran (en twips)

Voila j'espère que ce sera clair pour toi

@+

[Tofalu]

Ben j'ai bo chercher, je ne trouve pas. Il ya peut être une astuce, tu ouvres ton formulaire en mode plein ecran, tu recupères ses dimensions et tu le redimensionne aprés.

[User]

En effet ca parait la meilleure solution (redimensionner en plein écran) , ou alors trouver une API.

[Faw]

Slt,
regarde ici http://mypage.bluewin.ch/w.stucki/Fo...Redimensionner
ça peut peut-être t'intéresser

8)

[User]

Bonjour er merci pour vos recherches

En fait j'ai utilisé une API:

Je déclare un type rectangle et l'API:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Public Type RECT  '  16  Bytes
    left As Long
    top As Long
    right As Long
    bottom As Long
End Type
 
Declare Function apiGetWindowRect Lib "user32" _
    Alias "GetWindowRect" _
    (ByVal hWnd As Long, _
    lpRect As RECT) _
    As Long

Puis j'écris les fonctions ScreenWidth et ScreenHeight qui utilise l'API et me donne la largeur et la hauteur de la fenêtre Microsoft Access (qui prend la taille de l'écran):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
 
Public Function ScreenWidth()
Dim P As Long
Dim tRect As RECT
 
P = apiGetWindowRect(Application.hWndAccessApp, tRect)
P = (tRect.right - tRect.left)
 
ScreenWidth = 15 * P
 
End Function
 
Public Function ScreenHeight()
Dim P As Long
Dim tRect As RECT
 
P = apiGetWindowRect(Application.hWndAccessApp, tRect)
P = (tRect.bottom - tRect.top)
 
ScreenHeight = 15 * P
 
End Function

[tee_grandbois]

Je vois que le sujet a bien avancé, désolé de n'avoir pas répondu tout de suite je me suis déconnecté tôt jeudi soir ...