Changement de résolution d'écran (taille et fréquence)
bichonnet
Messages postés17Date d'inscriptionmardi 11 octobre 2005StatutMembreDernière intervention18 mai 2006
-
25 févr. 2006 à 10:30
cs_Julien39
Messages postés6414Date d'inscriptionmardi 8 mars 2005StatutModérateurDernière intervention29 juillet 2020
-
25 févr. 2006 à 15:13
bonjour, je cherche un code simple qui me permet de changer la résolution d'écran (sans modifier la fréquence de rafraichissement )au lancement de mon application .
Mes formes sont en 800x600 et certains écrans sur lesquels je les utilise sont en 1024x768. les codes que j'ai trouvé MODIFIENT la fréquence d'écran (85hz deviennent 60hz par exemple ce qui fait trembler l'affichage).
merci d'avance
cs_Julien39
Messages postés6414Date d'inscriptionmardi 8 mars 2005StatutModérateurDernière intervention29 juillet 2020371 25 févr. 2006 à 15:08
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
Messages postés6414Date d'inscriptionmardi 8 mars 2005StatutModérateurDernière intervention29 juillet 2020371 25 févr. 2006 à 15:13
Je me suis trompé, je pensais que tu voulais redimentinner en 1024*768
La correction est tres simple à 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