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
Sophie
Bonjour,
Tu trouveras ci-dessous un exemple pour changer
la résolution d'écran.
Sophie
Change the Windows display resolution.
Déclarations
Public Const EWX_LOGOFF = 0
Public Const EWX_SHUTDOWN = 1
Public Const EWX_REBOOT = 2
Public Const EWX_FORCE = 4
Public Const CCDEVICENAME = 32
Public Const CCFORMNAME = 32
Public Const DM_BITSPERPEL = &H40000
Public Const DM_PELSWIDTH = &H80000
Public Const DM_PELSHEIGHT = &H100000
Public Const CDS_UPDATEREGISTRY = &H1
Public Const CDS_TEST = &H4
Public Const DISP_CHANGE_SUCCESSFUL = 0
Public Const DISP_CHANGE_RESTART = 1
Type typDevMODE
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
Declare Function EnumDisplaySettings Lib "user32" Alias "EnumDisplaySettingsA" (ByVal lpszDeviceName As Long, ByVal iModeNum As Long, lptypDevMode As Any) As Boolean
Declare Function ChangeDisplaySettings Lib "user32" Alias "ChangeDisplaySettingsA" (lptypDevMode As Any, ByVal dwFlags As Long) As Long
Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
MsgBox "Mode not supported", vbSystemModal, "Error"
End Select
"big" a écrit dans le message de news:04be01c3a03b$7a746970$ Bonjour je cherche un bout de code qui permet de changer la résolution d'écran. De 640 par 480 à 800x600. Merci d'avance
Bonjour,
Tu trouveras ci-dessous un exemple pour changer
la résolution d'écran.
Sophie
Change the Windows display resolution.
Déclarations
Public Const EWX_LOGOFF = 0
Public Const EWX_SHUTDOWN = 1
Public Const EWX_REBOOT = 2
Public Const EWX_FORCE = 4
Public Const CCDEVICENAME = 32
Public Const CCFORMNAME = 32
Public Const DM_BITSPERPEL = &H40000
Public Const DM_PELSWIDTH = &H80000
Public Const DM_PELSHEIGHT = &H100000
Public Const CDS_UPDATEREGISTRY = &H1
Public Const CDS_TEST = &H4
Public Const DISP_CHANGE_SUCCESSFUL = 0
Public Const DISP_CHANGE_RESTART = 1
Type typDevMODE
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
Declare Function EnumDisplaySettings Lib "user32" Alias
"EnumDisplaySettingsA" (ByVal lpszDeviceName As Long, ByVal iModeNum As
Long, lptypDevMode As Any) As Boolean
Declare Function ChangeDisplaySettings Lib "user32" Alias
"ChangeDisplaySettingsA" (lptypDevMode As Any, ByVal dwFlags As Long) As
Long
Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal
dwReserved As Long) As Long
MsgBox "Mode not supported", vbSystemModal, "Error"
End Select
"big" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:04be01c3a03b$7a746970$a601280a@phx.gbl...
Bonjour
je cherche un bout de code qui permet de changer la
résolution d'écran. De 640 par 480 à 800x600.
Merci d'avance
Declare Function EnumDisplaySettings Lib "user32" Alias "EnumDisplaySettingsA" (ByVal lpszDeviceName As Long, ByVal iModeNum As Long, lptypDevMode As Any) As Boolean
Declare Function ChangeDisplaySettings Lib "user32" Alias "ChangeDisplaySettingsA" (lptypDevMode As Any, ByVal dwFlags As Long) As Long
Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
MsgBox "Mode not supported", vbSystemModal, "Error"
End Select
"big" a écrit dans le message de news:04be01c3a03b$7a746970$ Bonjour je cherche un bout de code qui permet de changer la résolution d'écran. De 640 par 480 à 800x600. Merci d'avance
Zoury
Salut! :O)
J'veux juste te mettre en garde contre une telle practique..
1. Les utilisateurs n'aiment généralement pas qu'un logiciel modifie leur configuration. 2. Tu peux litéralement brisé le matériel si tu ne connais pas le matériel auquel tu fais affaire.
Il est préférable d'ajuster ton logiciel au configuration système que de faire l'inverse...
HOWTO: Create a Resolution-Independent Form http://support.microsoft.com/support/kb/articles/q182/0/70.asp
Merci de poster les réponses au groupe afin d'en faire profiter à tous
Salut! :O)
J'veux juste te mettre en garde contre une telle practique..
1. Les utilisateurs n'aiment généralement pas qu'un logiciel modifie leur
configuration.
2. Tu peux litéralement brisé le matériel si tu ne connais pas le matériel
auquel tu fais affaire.
Il est préférable d'ajuster ton logiciel au configuration système que de
faire l'inverse...
HOWTO: Create a Resolution-Independent Form
http://support.microsoft.com/support/kb/articles/q182/0/70.asp
J'veux juste te mettre en garde contre une telle practique..
1. Les utilisateurs n'aiment généralement pas qu'un logiciel modifie leur configuration. 2. Tu peux litéralement brisé le matériel si tu ne connais pas le matériel auquel tu fais affaire.
Il est préférable d'ajuster ton logiciel au configuration système que de faire l'inverse...
HOWTO: Create a Resolution-Independent Form http://support.microsoft.com/support/kb/articles/q182/0/70.asp
Merci de poster les réponses au groupe afin d'en faire profiter à tous
Patrice Henrio
Entièrement d'accord.
"Zoury" <yanick_lefebvre at hotmail dot com> a écrit dans le message de news:
Salut! :O)
J'veux juste te mettre en garde contre une telle practique..
1. Les utilisateurs n'aiment généralement pas qu'un logiciel modifie leur configuration. 2. Tu peux litéralement brisé le matériel si tu ne connais pas le matériel auquel tu fais affaire.
Il est préférable d'ajuster ton logiciel au configuration système que de faire l'inverse...
HOWTO: Create a Resolution-Independent Form http://support.microsoft.com/support/kb/articles/q182/0/70.asp
Merci de poster les réponses au groupe afin d'en faire profiter à tous
Entièrement d'accord.
"Zoury" <yanick_lefebvre at hotmail dot com> a écrit dans le message de
news:O7Y6gwhoDHA.3024@tk2msftngp13.phx.gbl...
Salut! :O)
J'veux juste te mettre en garde contre une telle practique..
1. Les utilisateurs n'aiment généralement pas qu'un logiciel modifie leur
configuration.
2. Tu peux litéralement brisé le matériel si tu ne connais pas le matériel
auquel tu fais affaire.
Il est préférable d'ajuster ton logiciel au configuration système que de
faire l'inverse...
HOWTO: Create a Resolution-Independent Form
http://support.microsoft.com/support/kb/articles/q182/0/70.asp
"Zoury" <yanick_lefebvre at hotmail dot com> a écrit dans le message de news:
Salut! :O)
J'veux juste te mettre en garde contre une telle practique..
1. Les utilisateurs n'aiment généralement pas qu'un logiciel modifie leur configuration. 2. Tu peux litéralement brisé le matériel si tu ne connais pas le matériel auquel tu fais affaire.
Il est préférable d'ajuster ton logiciel au configuration système que de faire l'inverse...
HOWTO: Create a Resolution-Independent Form http://support.microsoft.com/support/kb/articles/q182/0/70.asp
