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 Résolution d'écran

Résolution d'écran

8 réponses
Avatar
Richard Martin
Bonjour

Peut-on faire à partir d'un bouton de formulaire événement sur clic, une
commande qui me permettrait de faire changer la résolution de l'écran à
800X600 et en fermant l'application revenir comme c'était avant.

Merci et bonne journée !

Richard
Signaler un problème avec ce contenu

8 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
Avatar
Gilbert
Bonjour,

Regarde ici
http://groups.google.fr/group/microsoft.public.fr.access/browse_thread/thread/771fde73a151cba5/613f476ad47b0031?lnk=gst&q=resolution+ecran&rnum=4&hl=fr#613f476ad47b0031

Gilbert


"Richard Martin" a écrit dans le message de
news:
Bonjour

Peut-on faire à partir d'un bouton de formulaire événement sur clic, une
commande qui me permettrait de faire changer la résolution de l'écran à
800X600 et en fermant l'application revenir comme c'était avant.

Merci et bonne journée !

Richard




Avatar
Richard Martin
Merci, je vérifie

"Gilbert" a écrit dans le message de news:

Bonjour,

Regarde ici
http://groups.google.fr/group/microsoft.public.fr.access/browse_thread/thread/771fde73a151cba5/613f476ad47b0031?lnk=gst&q=resolution+ecran&rnum=4&hl=fr#613f476ad47b0031

Gilbert


"Richard Martin" a écrit dans le message de
news:
Bonjour

Peut-on faire à partir d'un bouton de formulaire événement sur clic, une
commande qui me permettrait de faire changer la résolution de l'écran à
800X600 et en fermant l'application revenir comme c'était avant.

Merci et bonne journée !

Richard








Avatar
Richard Martin
Bonjour

Ça m'a l'air bien. Dois-je mettre tout ça dans un module et faire la
commande à partir de mon formulaire menu dans événement sur ouverture ou
avec des boutons de choix de résolution pour l'usager, ce serait bien.

Richard

"Gilbert" a écrit dans le message de news:

Bonjour,

Regarde ici
http://groups.google.fr/group/microsoft.public.fr.access/browse_thread/thread/771fde73a151cba5/613f476ad47b0031?lnk=gst&q=resolution+ecran&rnum=4&hl=fr#613f476ad47b0031

Gilbert


"Richard Martin" a écrit dans le message de
news:
Bonjour

Peut-on faire à partir d'un bouton de formulaire événement sur clic, une
commande qui me permettrait de faire changer la résolution de l'écran à
800X600 et en fermant l'application revenir comme c'était avant.

Merci et bonne journée !

Richard








Avatar
Jessy Sempere [MVP]
Bonjour

Tu dois copier l'intégralité du code dans un module standard de ta base de
donnée.
Ensuite il te suffit de lancer sur ouverture de ton formulaire la fonction :
fChangeRes

Par contre, si tu veux remettre la résolution comme elle était avant que tu
l'ai changé, il va te falloir stocker sa valeur quelque part pour être
capable de la rétablir...

Pour la déterminer, tu peux utiliser le code suivant qu'il faudra placer
dans un module standard :

'************************************
'** Déclaration des API
Public Declare Function apiGetDeviceCaps Lib "gdi32" Alias
"GetDeviceCaps" _
(ByVal hDc As Long, ByVal nIndex As Long) As Long

Public Declare Function apiGetDC Lib "user32" _
Alias "GetDC" (ByVal hWnd As Long) As Long

Public Declare Function apiReleaseDC Lib "user32" _
Alias "ReleaseDC" (ByVal hWnd As Long, _
ByVal hDc As Long) As Long

'** Déclaration des constantes
Public Const HorzRes = 8
Public Const VertRes = 10
Public Const HWND_DESKTOP = 0

Public Function apiHauteurEcran()
'** Résolution verticale de l'écran
Dim hDc As Long
hDc = apiGetDC(HWND_DESKTOP)
apiHauteurEcran = apiGetDeviceCaps(hDc, VertRes)
apiReleaseDC HWND_DESKTOP, hDc
End Function

Public Function apiLargeurEcran()
'** Résolution horizontale de l'écran
Dim hDc As Long
hDc = apiGetDC(HWND_DESKTOP)
apiLargeurEcran = apiGetDeviceCaps(hDc, HorzRes)
apiReleaseDC HWND_DESKTOP, hDc
End Function

Public Function ResEcran() As String
'** Donne la résolution en cours de l'écran
ResEcran = apiLargeurEcran & " x " & apiHauteurEcran
End Function
'************************************
@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.fr.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Richard Martin" a écrit dans le message de news:

Bonjour

Ça m'a l'air bien. Dois-je mettre tout ça dans un module et faire la
commande à partir de mon formulaire menu dans événement sur ouverture ou
avec des boutons de choix de résolution pour l'usager, ce serait bien.

Richard

"Gilbert" a écrit dans le message de news:

Bonjour,

Regarde ici
http://groups.google.fr/group/microsoft.public.fr.access/browse_thread/thread/771fde73a151cba5/613f476ad47b0031?lnk=gst&q=resolution+ecran&rnum=4&hl=fr#613f476ad47b0031

Gilbert


"Richard Martin" a écrit dans le message de
news:
Bonjour

Peut-on faire à partir d'un bouton de formulaire événement sur clic,
une
commande qui me permettrait de faire changer la résolution de l'écran à
800X600 et en fermant l'application revenir comme c'était avant.

Merci et bonne journée !

Richard












Avatar
Richard Martin
Merci beaucoup. Je vais tester ça. J'ai Access 2003.

Richard

"Jessy Sempere [MVP]" a écrit dans le message de
news: %
Bonjour

Tu dois copier l'intégralité du code dans un module standard de ta base de
donnée.
Ensuite il te suffit de lancer sur ouverture de ton formulaire la fonction
: fChangeRes

Par contre, si tu veux remettre la résolution comme elle était avant que
tu l'ai changé, il va te falloir stocker sa valeur quelque part pour être
capable de la rétablir...

Pour la déterminer, tu peux utiliser le code suivant qu'il faudra placer
dans un module standard :

'************************************
'** Déclaration des API
Public Declare Function apiGetDeviceCaps Lib "gdi32" Alias
"GetDeviceCaps" _
(ByVal hDc As Long, ByVal nIndex As Long) As Long

Public Declare Function apiGetDC Lib "user32" _
Alias "GetDC" (ByVal hWnd As Long) As Long

Public Declare Function apiReleaseDC Lib "user32" _
Alias "ReleaseDC" (ByVal hWnd As Long, _
ByVal hDc As Long) As Long

'** Déclaration des constantes
Public Const HorzRes = 8
Public Const VertRes = 10
Public Const HWND_DESKTOP = 0

Public Function apiHauteurEcran()
'** Résolution verticale de l'écran
Dim hDc As Long
hDc = apiGetDC(HWND_DESKTOP)
apiHauteurEcran = apiGetDeviceCaps(hDc, VertRes)
apiReleaseDC HWND_DESKTOP, hDc
End Function

Public Function apiLargeurEcran()
'** Résolution horizontale de l'écran
Dim hDc As Long
hDc = apiGetDC(HWND_DESKTOP)
apiLargeurEcran = apiGetDeviceCaps(hDc, HorzRes)
apiReleaseDC HWND_DESKTOP, hDc
End Function

Public Function ResEcran() As String
'** Donne la résolution en cours de l'écran
ResEcran = apiLargeurEcran & " x " & apiHauteurEcran
End Function
'************************************
@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.fr.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Richard Martin" a écrit dans le message de news:

Bonjour

Ça m'a l'air bien. Dois-je mettre tout ça dans un module et faire la
commande à partir de mon formulaire menu dans événement sur ouverture ou
avec des boutons de choix de résolution pour l'usager, ce serait bien.

Richard

"Gilbert" a écrit dans le message de news:

Bonjour,

Regarde ici
http://groups.google.fr/group/microsoft.public.fr.access/browse_thread/thread/771fde73a151cba5/613f476ad47b0031?lnk=gst&q=resolution+ecran&rnum=4&hl=fr#613f476ad47b0031

Gilbert


"Richard Martin" a écrit dans le message de
news:
Bonjour

Peut-on faire à partir d'un bouton de formulaire événement sur clic,
une
commande qui me permettrait de faire changer la résolution de l'écran à
800X600 et en fermant l'application revenir comme c'était avant.

Merci et bonne journée !

Richard
















Avatar
Richard Martin
Bonjour

J'ai testé le tout. J'ai copié l'intégralité du code dans un module
(module1) avec un copier coller du code sur le site. Ensuite dans la
propriété sur ouverture du formulaire qui ouvre par défaut j'ai mis la
ligne:

Sub ........

fChangeRes(800,600)

End Sub.....

Mais quand j'ouvre le formulaire, ça bug sur cette ligne. La ligne était
même rouge quand je l'ai écrit comme s'il manquait quelque chose.

Avez-vous testé le tout chez vous ? Est-ce moi qui ai oublié quelque chose ?

Merci encore d'avance pour l'aide et bonne journée !

Richard

"Jessy Sempere [MVP]" a écrit dans le message de
news: %
Bonjour

Tu dois copier l'intégralité du code dans un module standard de ta base de
donnée.
Ensuite il te suffit de lancer sur ouverture de ton formulaire la fonction
: fChangeRes

Par contre, si tu veux remettre la résolution comme elle était avant que
tu l'ai changé, il va te falloir stocker sa valeur quelque part pour être
capable de la rétablir...

Pour la déterminer, tu peux utiliser le code suivant qu'il faudra placer
dans un module standard :

'************************************
'** Déclaration des API
Public Declare Function apiGetDeviceCaps Lib "gdi32" Alias
"GetDeviceCaps" _
(ByVal hDc As Long, ByVal nIndex As Long) As Long

Public Declare Function apiGetDC Lib "user32" _
Alias "GetDC" (ByVal hWnd As Long) As Long

Public Declare Function apiReleaseDC Lib "user32" _
Alias "ReleaseDC" (ByVal hWnd As Long, _
ByVal hDc As Long) As Long

'** Déclaration des constantes
Public Const HorzRes = 8
Public Const VertRes = 10
Public Const HWND_DESKTOP = 0

Public Function apiHauteurEcran()
'** Résolution verticale de l'écran
Dim hDc As Long
hDc = apiGetDC(HWND_DESKTOP)
apiHauteurEcran = apiGetDeviceCaps(hDc, VertRes)
apiReleaseDC HWND_DESKTOP, hDc
End Function

Public Function apiLargeurEcran()
'** Résolution horizontale de l'écran
Dim hDc As Long
hDc = apiGetDC(HWND_DESKTOP)
apiLargeurEcran = apiGetDeviceCaps(hDc, HorzRes)
apiReleaseDC HWND_DESKTOP, hDc
End Function

Public Function ResEcran() As String
'** Donne la résolution en cours de l'écran
ResEcran = apiLargeurEcran & " x " & apiHauteurEcran
End Function
'************************************
@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.fr.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Richard Martin" a écrit dans le message de news:

Bonjour

Ça m'a l'air bien. Dois-je mettre tout ça dans un module et faire la
commande à partir de mon formulaire menu dans événement sur ouverture ou
avec des boutons de choix de résolution pour l'usager, ce serait bien.

Richard

"Gilbert" a écrit dans le message de news:

Bonjour,

Regarde ici
http://groups.google.fr/group/microsoft.public.fr.access/browse_thread/thread/771fde73a151cba5/613f476ad47b0031?lnk=gst&q=resolution+ecran&rnum=4&hl=fr#613f476ad47b0031

Gilbert


"Richard Martin" a écrit dans le message de
news:
Bonjour

Peut-on faire à partir d'un bouton de formulaire événement sur clic,
une
commande qui me permettrait de faire changer la résolution de l'écran à
800X600 et en fermant l'application revenir comme c'était avant.

Merci et bonne journée !

Richard
















Avatar
Gilbert
Bonjour,

Essaie avec
Call fChangeRes(800,600)

Gilbert

"Richard Martin" a écrit dans le message de
news:
Bonjour

J'ai testé le tout. J'ai copié l'intégralité du code dans un module
(module1) avec un copier coller du code sur le site. Ensuite dans la
propriété sur ouverture du formulaire qui ouvre par défaut j'ai mis la
ligne:

Sub ........

fChangeRes(800,600)

End Sub.....

Mais quand j'ouvre le formulaire, ça bug sur cette ligne. La ligne était
même rouge quand je l'ai écrit comme s'il manquait quelque chose.

Avez-vous testé le tout chez vous ? Est-ce moi qui ai oublié quelque chose
?


Merci encore d'avance pour l'aide et bonne journée !

Richard

"Jessy Sempere [MVP]" a écrit dans le message
de

news: %
Bonjour

Tu dois copier l'intégralité du code dans un module standard de ta base
de


donnée.
Ensuite il te suffit de lancer sur ouverture de ton formulaire la
fonction


: fChangeRes

Par contre, si tu veux remettre la résolution comme elle était avant que
tu l'ai changé, il va te falloir stocker sa valeur quelque part pour
être


capable de la rétablir...

Pour la déterminer, tu peux utiliser le code suivant qu'il faudra placer
dans un module standard :

'************************************
'** Déclaration des API
Public Declare Function apiGetDeviceCaps Lib "gdi32" Alias
"GetDeviceCaps" _
(ByVal hDc As Long, ByVal nIndex As Long) As Long

Public Declare Function apiGetDC Lib "user32" _
Alias "GetDC" (ByVal hWnd As Long) As Long

Public Declare Function apiReleaseDC Lib "user32" _
Alias "ReleaseDC" (ByVal hWnd As Long, _
ByVal hDc As Long) As Long

'** Déclaration des constantes
Public Const HorzRes = 8
Public Const VertRes = 10
Public Const HWND_DESKTOP = 0

Public Function apiHauteurEcran()
'** Résolution verticale de l'écran
Dim hDc As Long
hDc = apiGetDC(HWND_DESKTOP)
apiHauteurEcran = apiGetDeviceCaps(hDc, VertRes)
apiReleaseDC HWND_DESKTOP, hDc
End Function

Public Function apiLargeurEcran()
'** Résolution horizontale de l'écran
Dim hDc As Long
hDc = apiGetDC(HWND_DESKTOP)
apiLargeurEcran = apiGetDeviceCaps(hDc, HorzRes)
apiReleaseDC HWND_DESKTOP, hDc
End Function

Public Function ResEcran() As String
'** Donne la résolution en cours de l'écran
ResEcran = apiLargeurEcran & " x " & apiHauteurEcran
End Function
'************************************
@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.fr.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Richard Martin" a écrit dans le message de news:

Bonjour

Ça m'a l'air bien. Dois-je mettre tout ça dans un module et faire la
commande à partir de mon formulaire menu dans événement sur ouverture
ou



avec des boutons de choix de résolution pour l'usager, ce serait bien.

Richard

"Gilbert" a écrit dans le message de news:

Bonjour,

Regarde ici

http://groups.google.fr/group/microsoft.public.fr.access/browse_thread/thread/771fde73a151cba5/613f476ad47b0031?lnk=gst&q=resolution+ecran&rnum=4&hl=fr#613f476ad47b0031





Gilbert


"Richard Martin" a écrit dans le message de
news:
Bonjour

Peut-on faire à partir d'un bouton de formulaire événement sur clic,
une
commande qui me permettrait de faire changer la résolution de l'écran
à





800X600 et en fermant l'application revenir comme c'était avant.

Merci et bonne journée !

Richard




















Avatar
Jessy Sempere [MVP]
Bonjour

C'est normal, si tu veux être sûr que la fonction fChangeRes a fonctionné,
tu dois vérifier la valeur qu'elle retourne (true ou false).

Donc soit tu veux pas savoir ce qu'elle retourne et tu mets (sans les
parenthèses) :
fChangeRes 800, 600

et si tu veux savoir alors tu mets :

Dim result as boolean
result = fChangeRes(800,600)

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.fr.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Richard Martin" a écrit dans le message de news:

Bonjour

J'ai testé le tout. J'ai copié l'intégralité du code dans un module
(module1) avec un copier coller du code sur le site. Ensuite dans la
propriété sur ouverture du formulaire qui ouvre par défaut j'ai mis la
ligne:

Sub ........

fChangeRes(800,600)

End Sub.....

Mais quand j'ouvre le formulaire, ça bug sur cette ligne. La ligne était
même rouge quand je l'ai écrit comme s'il manquait quelque chose.

Avez-vous testé le tout chez vous ? Est-ce moi qui ai oublié quelque chose
?

Merci encore d'avance pour l'aide et bonne journée !

Richard

"Jessy Sempere [MVP]" a écrit dans le message
de news: %
Bonjour

Tu dois copier l'intégralité du code dans un module standard de ta base
de donnée.
Ensuite il te suffit de lancer sur ouverture de ton formulaire la
fonction : fChangeRes

Par contre, si tu veux remettre la résolution comme elle était avant que
tu l'ai changé, il va te falloir stocker sa valeur quelque part pour être
capable de la rétablir...

Pour la déterminer, tu peux utiliser le code suivant qu'il faudra placer
dans un module standard :

'************************************
'** Déclaration des API
Public Declare Function apiGetDeviceCaps Lib "gdi32" Alias
"GetDeviceCaps" _
(ByVal hDc As Long, ByVal nIndex As Long) As Long

Public Declare Function apiGetDC Lib "user32" _
Alias "GetDC" (ByVal hWnd As Long) As Long

Public Declare Function apiReleaseDC Lib "user32" _
Alias "ReleaseDC" (ByVal hWnd As Long, _
ByVal hDc As Long) As Long

'** Déclaration des constantes
Public Const HorzRes = 8
Public Const VertRes = 10
Public Const HWND_DESKTOP = 0

Public Function apiHauteurEcran()
'** Résolution verticale de l'écran
Dim hDc As Long
hDc = apiGetDC(HWND_DESKTOP)
apiHauteurEcran = apiGetDeviceCaps(hDc, VertRes)
apiReleaseDC HWND_DESKTOP, hDc
End Function

Public Function apiLargeurEcran()
'** Résolution horizontale de l'écran
Dim hDc As Long
hDc = apiGetDC(HWND_DESKTOP)
apiLargeurEcran = apiGetDeviceCaps(hDc, HorzRes)
apiReleaseDC HWND_DESKTOP, hDc
End Function

Public Function ResEcran() As String
'** Donne la résolution en cours de l'écran
ResEcran = apiLargeurEcran & " x " & apiHauteurEcran
End Function
'************************************
@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.fr.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Richard Martin" a écrit dans le message de news:

Bonjour

Ça m'a l'air bien. Dois-je mettre tout ça dans un module et faire la
commande à partir de mon formulaire menu dans événement sur ouverture ou
avec des boutons de choix de résolution pour l'usager, ce serait bien.

Richard

"Gilbert" a écrit dans le message de news:

Bonjour,

Regarde ici
http://groups.google.fr/group/microsoft.public.fr.access/browse_thread/thread/771fde73a151cba5/613f476ad47b0031?lnk=gst&q=resolution+ecran&rnum=4&hl=fr#613f476ad47b0031

Gilbert


"Richard Martin" a écrit dans le message de
news:
Bonjour

Peut-on faire à partir d'un bouton de formulaire événement sur clic,
une
commande qui me permettrait de faire changer la résolution de l'écran
à
800X600 et en fermant l'application revenir comme c'était avant.

Merci et bonne journée !

Richard