J'ai unes kestion tr=E8s bete a vous demander mais je=20
n'arrive pas a trouver.
Je voudrais que la taille du formulaire soit maximale et=20
qu'elle s'adapte en fonction de l'ecran. Si l'ecran est un=20
17 pouces, alors la taille sera celle d'un 17 pouces. Ms=20
si l'ecran est un 15pouces, sa taille sera 15pouces.
Je pense qu'il doit y avoir une option dans les proprietes=20
ms je ne trouve pas.
Merci d'avance pour votre aide.
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
André AVONS
Salut J'aimerais bien voir la gueule de tes forms C'est affreux en maximize
-- @+ André
Quelques liens avec des exemples, des utilitaires et des compléments pour Access http://access.seneque.free.fr/ http://www.self-access.com/ http://www.mvps.org/accessfr/ http://mypage.bluewin.ch/w.stucki/ http://access.jessy.free.fr/ http://www.anor.fr.st "Fred" a écrit dans le message de news:bfud6j$7fd$
DoCmd.maximize n'est-il pas plus simple pour être en plein écran Pourquoi ne pas l'assortir d'un DoCmd.Restore sur fermeture... A mon avis... La fontion MoveSize peut égalemenr permettre rapidement beaucoup de choses...
Fred "André AVONS" a écrit dans le message de news:
Salut petite rectification l'ecran ne s'adapte pas a la taille de l'ecran mais au
nombre de points de l'ecran Ex 800*600 ou 1024*768 Voir les apis Private Declare Function MoveWindow _ Lib "user32" _ (ByVal hwnd As Long, _ ByVal x As Long, ByVal Y As Long, ByVal nWidth As Long, _ ByVal nHeight As Long, ByVal bRepaint As Long) As Long Private Type Rect Left As Long Top As Long Right As Long Bottom As Long End Type
Private Declare Function GetWindowRect Lib "user32" _ (ByVal hwnd As Long, lpRect As Rect) As Long
Private Sub cmdGetWindowRect() ' Exemple d'appel de la fonction API GetWindowRect ' ' Sortie: ' Remplit le formulaire à l'aide de ses coordonnées Dim rectForm As Rect 'Gauche droite etc sont des champs independants que tu mets dans un form
'Pour les remplir tu fais un call cmdGetWindowRect If GetWindowRect(Me.hwnd, rectForm) Then gauche.Value = rectForm.Left Haut.Value = rectForm.Top droite.Value = rectForm.Right bas.Value = rectForm.Bottom End If End Sub 'Calcul hauteur largeur Largeur = Abs(droite - gauche) Hauteur = Abs(bas - Haut)
'Deplace la fenetre Call MoveWindow(frm.hwnd, _ gauche, Haut, Largeur, Hauteur, 1) Par contre les controles ne bougent pas et j'ai abandonné Il faut aussi que tu trouves la resolution de l'ecran je me souviens plus
de
l'api -- @+ André
Quelques liens avec des exemples, des utilitaires et des compléments pour
Access http://access.seneque.free.fr/ http://www.self-access.com/ http://www.mvps.org/accessfr/ http://mypage.bluewin.ch/w.stucki/ http://access.jessy.free.fr/ http://www.anor.fr.st "yoyo" a écrit dans le message de news:028b01c352f2$008d9d70$ Bonsoir,
J'ai unes kestion très bete a vous demander mais je n'arrive pas a trouver. Je voudrais que la taille du formulaire soit maximale et qu'elle s'adapte en fonction de l'ecran. Si l'ecran est un 17 pouces, alors la taille sera celle d'un 17 pouces. Ms si l'ecran est un 15pouces, sa taille sera 15pouces. Je pense qu'il doit y avoir une option dans les proprietes ms je ne trouve pas. Merci d'avance pour votre aide.
yoyo
Salut
J'aimerais bien voir la gueule de tes forms
C'est affreux en maximize
--
@+
André
Quelques liens avec des exemples, des utilitaires et des compléments pour
Access
http://access.seneque.free.fr/
http://www.self-access.com/
http://www.mvps.org/accessfr/
http://mypage.bluewin.ch/w.stucki/
http://access.jessy.free.fr/
http://www.anor.fr.st
"Fred" <fchaumont@memorys.fr> a écrit dans le message de
news:bfud6j$7fd$1@news-reader5.wanadoo.fr...
DoCmd.maximize n'est-il pas plus simple pour être en plein écran
Pourquoi ne pas l'assortir d'un DoCmd.Restore sur fermeture...
A mon avis...
La fontion MoveSize peut égalemenr permettre rapidement beaucoup de
choses...
Fred
"André AVONS" <aavons@9online.fr> a écrit dans le message de
news:ONt8HgvUDHA.2568@tk2msftngp13.phx.gbl...
Salut
petite rectification l'ecran ne s'adapte pas a la taille de l'ecran mais
au
nombre de points de l'ecran Ex 800*600 ou 1024*768
Voir les apis
Private Declare Function MoveWindow _
Lib "user32" _
(ByVal hwnd As Long, _
ByVal x As Long, ByVal Y As Long, ByVal nWidth As Long, _
ByVal nHeight As Long, ByVal bRepaint As Long) As Long
Private Type Rect
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Declare Function GetWindowRect Lib "user32" _
(ByVal hwnd As Long, lpRect As Rect) As Long
Private Sub cmdGetWindowRect()
' Exemple d'appel de la fonction API GetWindowRect
'
' Sortie:
' Remplit le formulaire à l'aide de ses coordonnées
Dim rectForm As Rect
'Gauche droite etc sont des champs independants que tu mets dans un
form
'Pour les remplir tu fais un call cmdGetWindowRect
If GetWindowRect(Me.hwnd, rectForm) Then
gauche.Value = rectForm.Left
Haut.Value = rectForm.Top
droite.Value = rectForm.Right
bas.Value = rectForm.Bottom
End If
End Sub
'Calcul hauteur largeur
Largeur = Abs(droite - gauche)
Hauteur = Abs(bas - Haut)
'Deplace la fenetre
Call MoveWindow(frm.hwnd, _
gauche, Haut, Largeur, Hauteur, 1)
Par contre les controles ne bougent pas et j'ai abandonné
Il faut aussi que tu trouves la resolution de l'ecran je me souviens
plus
de
l'api
--
@+
André
Quelques liens avec des exemples, des utilitaires et des compléments
pour
Access
http://access.seneque.free.fr/
http://www.self-access.com/
http://www.mvps.org/accessfr/
http://mypage.bluewin.ch/w.stucki/
http://access.jessy.free.fr/
http://www.anor.fr.st
"yoyo" <yoyo@caramail.com> a écrit dans le message de
news:028b01c352f2$008d9d70$a501280a@phx.gbl...
Bonsoir,
J'ai unes kestion très bete a vous demander mais je
n'arrive pas a trouver.
Je voudrais que la taille du formulaire soit maximale et
qu'elle s'adapte en fonction de l'ecran. Si l'ecran est un
17 pouces, alors la taille sera celle d'un 17 pouces. Ms
si l'ecran est un 15pouces, sa taille sera 15pouces.
Je pense qu'il doit y avoir une option dans les proprietes
ms je ne trouve pas.
Merci d'avance pour votre aide.
Salut J'aimerais bien voir la gueule de tes forms C'est affreux en maximize
-- @+ André
Quelques liens avec des exemples, des utilitaires et des compléments pour Access http://access.seneque.free.fr/ http://www.self-access.com/ http://www.mvps.org/accessfr/ http://mypage.bluewin.ch/w.stucki/ http://access.jessy.free.fr/ http://www.anor.fr.st "Fred" a écrit dans le message de news:bfud6j$7fd$
DoCmd.maximize n'est-il pas plus simple pour être en plein écran Pourquoi ne pas l'assortir d'un DoCmd.Restore sur fermeture... A mon avis... La fontion MoveSize peut égalemenr permettre rapidement beaucoup de choses...
Fred "André AVONS" a écrit dans le message de news:
Salut petite rectification l'ecran ne s'adapte pas a la taille de l'ecran mais au
nombre de points de l'ecran Ex 800*600 ou 1024*768 Voir les apis Private Declare Function MoveWindow _ Lib "user32" _ (ByVal hwnd As Long, _ ByVal x As Long, ByVal Y As Long, ByVal nWidth As Long, _ ByVal nHeight As Long, ByVal bRepaint As Long) As Long Private Type Rect Left As Long Top As Long Right As Long Bottom As Long End Type
Private Declare Function GetWindowRect Lib "user32" _ (ByVal hwnd As Long, lpRect As Rect) As Long
Private Sub cmdGetWindowRect() ' Exemple d'appel de la fonction API GetWindowRect ' ' Sortie: ' Remplit le formulaire à l'aide de ses coordonnées Dim rectForm As Rect 'Gauche droite etc sont des champs independants que tu mets dans un form
'Pour les remplir tu fais un call cmdGetWindowRect If GetWindowRect(Me.hwnd, rectForm) Then gauche.Value = rectForm.Left Haut.Value = rectForm.Top droite.Value = rectForm.Right bas.Value = rectForm.Bottom End If End Sub 'Calcul hauteur largeur Largeur = Abs(droite - gauche) Hauteur = Abs(bas - Haut)
'Deplace la fenetre Call MoveWindow(frm.hwnd, _ gauche, Haut, Largeur, Hauteur, 1) Par contre les controles ne bougent pas et j'ai abandonné Il faut aussi que tu trouves la resolution de l'ecran je me souviens plus
de
l'api -- @+ André
Quelques liens avec des exemples, des utilitaires et des compléments pour
Access http://access.seneque.free.fr/ http://www.self-access.com/ http://www.mvps.org/accessfr/ http://mypage.bluewin.ch/w.stucki/ http://access.jessy.free.fr/ http://www.anor.fr.st "yoyo" a écrit dans le message de news:028b01c352f2$008d9d70$ Bonsoir,
J'ai unes kestion très bete a vous demander mais je n'arrive pas a trouver. Je voudrais que la taille du formulaire soit maximale et qu'elle s'adapte en fonction de l'ecran. Si l'ecran est un 17 pouces, alors la taille sera celle d'un 17 pouces. Ms si l'ecran est un 15pouces, sa taille sera 15pouces. Je pense qu'il doit y avoir une option dans les proprietes ms je ne trouve pas. Merci d'avance pour votre aide.
yoyo
André AVONS
Salut J'ai retrouve pour avoir la resolution Copies ce qui suit dans un nouveau module Option Compare Database Option Explicit
Private Declare Function GetSystemMetrics Lib "user32.dll" _ (ByVal nIndex As Long) As Long Public Type XY X As Long Y As Long End Type
Global Const SM_CYSCREEN = 1 Global Const SM_CXSCREEN = 0
Function ResolutionEcran() As XY Dim XYRES As XY XYRES.X = GetSystemMetrics(SM_CXSCREEN) XYRES.Y = GetSystemMetrics(SM_CYSCREEN) ResolutionEcran = XYRES End Function 'Fin de copie '===================================================== Exemple d'utilisation dans un form Sub essai() Dim XYRETOUR As XY, largeur As Long, hauteur As Long XYRETOUR = ResolutionEcran largeur = XYRETOUR.X hauteur = XYRETOUR.Y Debug.Print "La résolution est de " & largeur & " par " & hauteur & " (pixels)" End Sub
-- @+ André
Quelques liens avec des exemples, des utilitaires et des compléments pour Access http://access.seneque.free.fr/ http://www.self-access.com/ http://www.mvps.org/accessfr/ http://mypage.bluewin.ch/w.stucki/ http://access.jessy.free.fr/ http://www.anor.fr.st "André AVONS" a écrit dans le message de news:
Salut petite rectification l'ecran ne s'adapte pas a la taille de l'ecran mais au
nombre de points de l'ecran Ex 800*600 ou 1024*768 Voir les apis Private Declare Function MoveWindow _ Lib "user32" _ (ByVal hwnd As Long, _ ByVal x As Long, ByVal Y As Long, ByVal nWidth As Long, _ ByVal nHeight As Long, ByVal bRepaint As Long) As Long Private Type Rect Left As Long Top As Long Right As Long Bottom As Long End Type
Private Declare Function GetWindowRect Lib "user32" _ (ByVal hwnd As Long, lpRect As Rect) As Long
Private Sub cmdGetWindowRect() ' Exemple d'appel de la fonction API GetWindowRect ' ' Sortie: ' Remplit le formulaire à l'aide de ses coordonnées Dim rectForm As Rect 'Gauche droite etc sont des champs independants que tu mets dans un form
'Pour les remplir tu fais un call cmdGetWindowRect If GetWindowRect(Me.hwnd, rectForm) Then gauche.Value = rectForm.Left Haut.Value = rectForm.Top droite.Value = rectForm.Right bas.Value = rectForm.Bottom End If End Sub 'Calcul hauteur largeur Largeur = Abs(droite - gauche) Hauteur = Abs(bas - Haut)
'Deplace la fenetre Call MoveWindow(frm.hwnd, _ gauche, Haut, Largeur, Hauteur, 1) Par contre les controles ne bougent pas et j'ai abandonné Il faut aussi que tu trouves la resolution de l'ecran je me souviens plus de
l'api -- @+ André
Quelques liens avec des exemples, des utilitaires et des compléments pour Access http://access.seneque.free.fr/ http://www.self-access.com/ http://www.mvps.org/accessfr/ http://mypage.bluewin.ch/w.stucki/ http://access.jessy.free.fr/ http://www.anor.fr.st "yoyo" a écrit dans le message de news:028b01c352f2$008d9d70$ Bonsoir,
J'ai unes kestion très bete a vous demander mais je n'arrive pas a trouver. Je voudrais que la taille du formulaire soit maximale et qu'elle s'adapte en fonction de l'ecran. Si l'ecran est un 17 pouces, alors la taille sera celle d'un 17 pouces. Ms si l'ecran est un 15pouces, sa taille sera 15pouces. Je pense qu'il doit y avoir une option dans les proprietes ms je ne trouve pas. Merci d'avance pour votre aide.
yoyo
Salut
J'ai retrouve pour avoir la resolution
Copies ce qui suit dans un nouveau module
Option Compare Database
Option Explicit
Private Declare Function GetSystemMetrics Lib "user32.dll" _
(ByVal nIndex As Long) As Long
Public Type XY
X As Long
Y As Long
End Type
Global Const SM_CYSCREEN = 1
Global Const SM_CXSCREEN = 0
Function ResolutionEcran() As XY
Dim XYRES As XY
XYRES.X = GetSystemMetrics(SM_CXSCREEN)
XYRES.Y = GetSystemMetrics(SM_CYSCREEN)
ResolutionEcran = XYRES
End Function
'Fin de copie
'===================================================== Exemple d'utilisation dans un form
Sub essai()
Dim XYRETOUR As XY, largeur As Long, hauteur As Long
XYRETOUR = ResolutionEcran
largeur = XYRETOUR.X
hauteur = XYRETOUR.Y
Debug.Print "La résolution est de " & largeur & " par " & hauteur & "
(pixels)"
End Sub
--
@+
André
Quelques liens avec des exemples, des utilitaires et des compléments pour
Access
http://access.seneque.free.fr/
http://www.self-access.com/
http://www.mvps.org/accessfr/
http://mypage.bluewin.ch/w.stucki/
http://access.jessy.free.fr/
http://www.anor.fr.st
"André AVONS" <aavons@9online.fr> a écrit dans le message de
news:ONt8HgvUDHA.2568@tk2msftngp13.phx.gbl...
Salut
petite rectification l'ecran ne s'adapte pas a la taille de l'ecran mais
au
nombre de points de l'ecran Ex 800*600 ou 1024*768
Voir les apis
Private Declare Function MoveWindow _
Lib "user32" _
(ByVal hwnd As Long, _
ByVal x As Long, ByVal Y As Long, ByVal nWidth As Long, _
ByVal nHeight As Long, ByVal bRepaint As Long) As Long
Private Type Rect
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Declare Function GetWindowRect Lib "user32" _
(ByVal hwnd As Long, lpRect As Rect) As Long
Private Sub cmdGetWindowRect()
' Exemple d'appel de la fonction API GetWindowRect
'
' Sortie:
' Remplit le formulaire à l'aide de ses coordonnées
Dim rectForm As Rect
'Gauche droite etc sont des champs independants que tu mets dans un
form
'Pour les remplir tu fais un call cmdGetWindowRect
If GetWindowRect(Me.hwnd, rectForm) Then
gauche.Value = rectForm.Left
Haut.Value = rectForm.Top
droite.Value = rectForm.Right
bas.Value = rectForm.Bottom
End If
End Sub
'Calcul hauteur largeur
Largeur = Abs(droite - gauche)
Hauteur = Abs(bas - Haut)
'Deplace la fenetre
Call MoveWindow(frm.hwnd, _
gauche, Haut, Largeur, Hauteur, 1)
Par contre les controles ne bougent pas et j'ai abandonné
Il faut aussi que tu trouves la resolution de l'ecran je me souviens plus
de
l'api
--
@+
André
Quelques liens avec des exemples, des utilitaires et des compléments pour
Access
http://access.seneque.free.fr/
http://www.self-access.com/
http://www.mvps.org/accessfr/
http://mypage.bluewin.ch/w.stucki/
http://access.jessy.free.fr/
http://www.anor.fr.st
"yoyo" <yoyo@caramail.com> a écrit dans le message de
news:028b01c352f2$008d9d70$a501280a@phx.gbl...
Bonsoir,
J'ai unes kestion très bete a vous demander mais je
n'arrive pas a trouver.
Je voudrais que la taille du formulaire soit maximale et
qu'elle s'adapte en fonction de l'ecran. Si l'ecran est un
17 pouces, alors la taille sera celle d'un 17 pouces. Ms
si l'ecran est un 15pouces, sa taille sera 15pouces.
Je pense qu'il doit y avoir une option dans les proprietes
ms je ne trouve pas.
Merci d'avance pour votre aide.
Salut J'ai retrouve pour avoir la resolution Copies ce qui suit dans un nouveau module Option Compare Database Option Explicit
Private Declare Function GetSystemMetrics Lib "user32.dll" _ (ByVal nIndex As Long) As Long Public Type XY X As Long Y As Long End Type
Global Const SM_CYSCREEN = 1 Global Const SM_CXSCREEN = 0
Function ResolutionEcran() As XY Dim XYRES As XY XYRES.X = GetSystemMetrics(SM_CXSCREEN) XYRES.Y = GetSystemMetrics(SM_CYSCREEN) ResolutionEcran = XYRES End Function 'Fin de copie '===================================================== Exemple d'utilisation dans un form Sub essai() Dim XYRETOUR As XY, largeur As Long, hauteur As Long XYRETOUR = ResolutionEcran largeur = XYRETOUR.X hauteur = XYRETOUR.Y Debug.Print "La résolution est de " & largeur & " par " & hauteur & " (pixels)" End Sub
-- @+ André
Quelques liens avec des exemples, des utilitaires et des compléments pour Access http://access.seneque.free.fr/ http://www.self-access.com/ http://www.mvps.org/accessfr/ http://mypage.bluewin.ch/w.stucki/ http://access.jessy.free.fr/ http://www.anor.fr.st "André AVONS" a écrit dans le message de news:
Salut petite rectification l'ecran ne s'adapte pas a la taille de l'ecran mais au
nombre de points de l'ecran Ex 800*600 ou 1024*768 Voir les apis Private Declare Function MoveWindow _ Lib "user32" _ (ByVal hwnd As Long, _ ByVal x As Long, ByVal Y As Long, ByVal nWidth As Long, _ ByVal nHeight As Long, ByVal bRepaint As Long) As Long Private Type Rect Left As Long Top As Long Right As Long Bottom As Long End Type
Private Declare Function GetWindowRect Lib "user32" _ (ByVal hwnd As Long, lpRect As Rect) As Long
Private Sub cmdGetWindowRect() ' Exemple d'appel de la fonction API GetWindowRect ' ' Sortie: ' Remplit le formulaire à l'aide de ses coordonnées Dim rectForm As Rect 'Gauche droite etc sont des champs independants que tu mets dans un form
'Pour les remplir tu fais un call cmdGetWindowRect If GetWindowRect(Me.hwnd, rectForm) Then gauche.Value = rectForm.Left Haut.Value = rectForm.Top droite.Value = rectForm.Right bas.Value = rectForm.Bottom End If End Sub 'Calcul hauteur largeur Largeur = Abs(droite - gauche) Hauteur = Abs(bas - Haut)
'Deplace la fenetre Call MoveWindow(frm.hwnd, _ gauche, Haut, Largeur, Hauteur, 1) Par contre les controles ne bougent pas et j'ai abandonné Il faut aussi que tu trouves la resolution de l'ecran je me souviens plus de
l'api -- @+ André
Quelques liens avec des exemples, des utilitaires et des compléments pour Access http://access.seneque.free.fr/ http://www.self-access.com/ http://www.mvps.org/accessfr/ http://mypage.bluewin.ch/w.stucki/ http://access.jessy.free.fr/ http://www.anor.fr.st "yoyo" a écrit dans le message de news:028b01c352f2$008d9d70$ Bonsoir,
J'ai unes kestion très bete a vous demander mais je n'arrive pas a trouver. Je voudrais que la taille du formulaire soit maximale et qu'elle s'adapte en fonction de l'ecran. Si l'ecran est un 17 pouces, alors la taille sera celle d'un 17 pouces. Ms si l'ecran est un 15pouces, sa taille sera 15pouces. Je pense qu'il doit y avoir une option dans les proprietes ms je ne trouve pas. Merci d'avance pour votre aide.
