changement de résolution d'écran (taille et fréquence)

Question

bonjour, je cherche un code simple qui me permet de changer la r&#233;solution d'&#233;cran (sans modifier la fr&#233;quence de rafraichissement )au lancement de mon application .
Mes formes sont en 800x600 et certains &#233;crans sur lesquels je les utilise sont en 1024x768. les codes que j'ai trouv&#233; MODIFIENT la fr&#233;quence d'&#233;cran (85hz deviennent 60hz par exemple ce qui fait trembler l'affichage).
merci d'avance

cs_Julien39 · Answer

Copie sa dans un module

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


Dans ta form ou dans la commande pour restauration parametre d'origine

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
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


End Sub

Dans form load ou dans une commande pour redimentionner

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)

cs_Julien39 · Answer

Je me suis tromp&#233;, je pensais que tu voulais redimentinner en 1024*768
La correction est tres simple &#224; apporter 
Remplace 4 lignes avant la fin dans l'instruction pour redimentionner "DevM.dmPelsWidth = 1024
DevM.dmPelsHeight = 768"
par
DevM.dmPelsWidth = 800
DevM.dmPelsHeight = 600

Changement de résolution d'écran (taille et fréquence)

2 réponses

Discussions similaires