ACCESS et la résolution de l'écran

Question

RE BONJOUR !
j'ai encore un petit soucis ....
est ce qu'il existe quelque part dans le monde du web un petit bout de code qui permettrait &#224; mes formulaires de s'adapter automatiquement &#224; la r&#233;solution d'un &#233;cran 
Mon application pr&#233;sente tr&#232;s bien les formulaires sous une r&#233;solution 1024 par 768 pixels .... mais apparement les gars dans l'entreprise ils ont quelques ordi qui ont une r&#233;solution de 800 par 600.... et l&#224; ... on voit que le quart des formulaires qui s'affiche ... c triste.... g cherch&#233; une soluce sur le web mais pas trouv&#233; ...
Si quelkun a une soluce .... merci d'avance !!

cs_Julien39 · Answer

Je ne sais pas si tes formulaires peuvent s'adapter par contre j'ai un code qui permat de changer la r&#233;solution d'&#233;cran &#224; l'ouverture et &#224; la fermeture du prog

Anju642 · Answer

Heu ... ben je sais pas trop .... comme je suis en entreprise et que je suis l&#224; que pour l'&#233;t&#233; ... je vais pas m'amuser &#224; changer la r&#233;solution de leur &#233;cran ... si ils en ont mis certains en 800 par 600 c'est qu'il doit y avoir une bonne raison ....

Mais bon je veux bien essayer quand m&#234;me ... vu que j'ai rien d'autre! vas-y envoi !

cs_Julien39 · Answer

Dans un module tu insere ce code :

Option Explicit


Public Declare Function EnumDisplaySettings Lib "user32" Alias "EnumDisplaySettingsA" (ByVal lpszDeviceName As Long, ByVal iModeNum As Long, lpDevMode As Any) As Boolean
Public Declare Function ChangeDisplaySettings Lib "user32" Alias "ChangeDisplaySettingsA" (lpDevMode As Any, ByVal dwflags As Long) As Long


Public Const CCHDEVICENAME = 32
Public Const CCHFORMNAME = 32
Public Const DM_PELSWIDTH = &H80000
Public Const DM_PELSHEIGHT = &H100000


Public Type DEVMODE
        dmDeviceName As String * CCHDEVICENAME
        dmSpecVersion As Integer
        dmDriverVersion As Integer
        dmSize As Integer
        dmDriverExtra As Integer
        dmFields As Long
        dmOrientation As Integer
        dmPaperSize As Integer
        dmPaperLength As Integer
        dmPaperWidth As Integer
        dmScale As Integer
        dmCopies As Integer
        dmDefaultSource As Integer
        dmPrintQuality As Integer
        dmColor As Integer
        dmDuplex As Integer
        dmYResolution As Integer
        dmTTOption As Integer
        dmCollate As Integer
        dmFormName As String * CCHFORMNAME
        dmUnusedPadding As Integer
        dmBitsPerPel As Long
        dmPelsWidth As Long
        dmPelsHeight As Long
        dmDisplayFlags As Long
        dmDisplayFrequency As Long
End Type


Global DevM As DEVMODE


Global resultat As Boolean
Global i, changement As Long

Tu fais une form avec une commande quitter dans Form_Load tu met

aa1 = Screen.Width / 15
aa2 = Screen.Height / 15
i = 0
Do
    resultat = EnumDisplaySettings(0&, i, DevM)
    i = i + 1
Loop Until (resultat = False)
DevM.dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT
DevM.dmPelsWidth = 1024
DevM.dmPelsHeight = 768
DevM.dmBitsPerPel = 32
changement = ChangeDisplaySettings(DevM, 0)

Et sur la commande que tu peux appeler quitter tu met

i = 0
Do
    resultat = EnumDisplaySettings(0&, i, DevM)
    i = i + 1
Loop Until (resultat = False)
DevM.dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT
DevM.dmPelsWidth = aa1
DevM.dmPelsHeight = aa2
DevM.dmBitsPerPel = 32
changement = ChangeDisplaySettings(DevM, 0)
End

Et voila j'esperer que sa te conviendra

Anju642 · Answer

Ok merci ,
 mais il arrive pas &#224; me reconnaitre la fonction 
Screen.Height et Screen.Width ... c normal ?

cs_Julien39 · Answer

Chez moi sa fonctionne je ne comprends pas pourquoi pas chez toi sa ne va pas. C'est quel windows c'est quel Vb

Anju642 · Answer

G WIndows XP  SP2  avec Microsoft office 2003. VB fonctionne avec Access 2003 c Visual basic editor.

cs_Julien39 · Answer

Je ne connais pas du tout acces je suis d&#233;sol&#233; de ne pouvoir t'aider plus si tu veux l'exe je te l'envoi mais c'est tout ce que je peux faire.

Anju642 · Answer

Non c bon ... Merci quand m&#234;me !!! 
Ciao !!

ACCESS et la résolution de l'écran

8 réponses

Discussions similaires