poeticgrinder
Messages postés10Date d'inscriptionlundi 21 janvier 2002StatutMembreDernière intervention28 juin 2002
-
27 mai 2002 à 13:58
cs_dido
Messages postés41Date d'inscriptionmardi 14 mai 2002StatutMembreDernière intervention17 janvier 2003
-
29 mai 2002 à 11:16
salut,
je suis sur un logiciel mais j'ai des problemes de resolution, en fait j'aimerais que le logiciel se lance automatiquement en 1024*768.
si qq un a une idée merci
poeticgrinder
Messages postés10Date d'inscriptionlundi 21 janvier 2002StatutMembreDernière intervention28 juin 2002 28 mai 2002 à 09:34
ca y est j'ai trouvé comment changer la résolution maintenant le pobleme c'est quand je passe de 800*600 à 1024*768, j'ai la barre windows qui se ballade au milieu de l'écran, si t'as une idée ce serais cool.
merci
poeticgrinder
Messages postés10Date d'inscriptionlundi 21 janvier 2002StatutMembreDernière intervention28 juin 2002 28 mai 2002 à 15:08
Option Explicit
Private Declare Function EnumDisplaySettings Lib "User32" Alias "EnumDisplaySettingsA" (ByVal lpszDeviceName As Long, ByVal iModeNum As Long, lpDevMode As Any) As Boolean
Private Declare Function ChangeDisplaySettings Lib "User32" Alias "ChangeDisplaySettingsA" (lpDevMode As Any, ByVal dwFlags As Long) As Long
Private Type DEVMODE
dmDeviceName As String * CCDEVICENAME
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 * CCFORMNAME
dmUnusedPadding As Integer
dmBitsPerPel As Integer
dmPelsWidth As Long
dmPelsHeight As Long
dmDisplayFlags As Long
dmDisplayFrequency As Long
End Type
Dim DevM As DEVMODE
Private Sub ChangeRes(iWidth As Single, iHeight As Single)
Dim a As Boolean
Dim i&
i = 0
Do
a = EnumDisplaySettings(0&, i&, DevM)
i = i + 1
Loop Until (a = False)
Dim b&
DevM.dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT