CHANGER LA RESOLUTION DE WINDOWS

Commentaire de vichamp le 01/08/2002 11:36:57

Excelent, mais j'voudrais pas etre chiant, mais komment on fait pour changé la rézo du 2eme moniteur quand on a 2 ??? :)

Commentaire de SyDGiN le 16/10/2002 13:13:16

ARGHH
Nix, ton code est très bien, mais pourrais-tu m'indiquer (dans la foulée) pkoi lorsque je suis en 800*600, que j'indique un changement vers 1024*768, la barre des tâches reste aux coordonnées du mode 800*600 (cad x=0,y=1024-800, width=800)
Je n'arrive pas à la redimensionner (en passant par setwindowpos ou movewindow) pour qu'elle retrouve ses place et taille originales (en bas koa).

yati un truc ?

ZeeD

Commentaire de Hypercool7 le 26/03/2003 20:08:53

je debute la programation , mé une fois que c dans un module , comment on execute le code en cliquant sur un bouton d'une form kelkonc?

Commentaire de Natim le 06/04/2004 08:33:00

C'est exactement ce que je cherche mais moi, quand je lance mon resolution.vbs
Il me touve une erreur !!
ligne 1 caractère 17 fin d'instruction attendue !!
Avez vous une idée
Je remets le code ?
Aller ok tenez :

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 Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Const CCHDEVICENAME = 32
Private Const CCHFORMNAME = 32
Private Const DM_WIDTH = &H80000
Private Const DM_HEIGHT = &H100000
Private Const WM_DEVMODECHANGE = &H1B
Private Const HWND_BROADCAST = &HFFFF&
Private Const HWND_DESKTOP = 0

Private 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 Integer
    dmPelsWidth As Long
    dmPelsHeight As Long
    dmDisplayFlags As Long
    dmDisplayFrequency As Long
End Type

Dim dmEcran As DEVMODE

Private Sub ResolutionEcran(sgWidth As Single, sgHeight As Single)
    Dim blTMP As Boolean
    Dim lgTMP As Long
    lgTMP = 0
    Do
        blTMP = EnumDisplaySettings(0, lgTMP, dmEcran)
        lgTMP = lgTMP + 1
    Loop Until Not blTMP
    dmEcran.dmFields = DM_WIDTH Or DM_HEIGHT
    dmEcran.dmPelsWidth = sgWidth
    dmEcran.dmPelsHeight = sgHeight
    lgTMP = ChangeDisplaySettings(dmEcran, 0)
    Call SendMessage(HWND_BROADCAST, WM_DEVMODECHANGE, 0, 0)
End Sub


' Ensuite dans un pour changer la résolution :

Private Sub Command1_Click()
Call ResolutionEcran(1024, 768)
End Sub
' Votre affichage passera en 1024x768

Commentaire de 187bundy le 06/05/2004 09:04:39

Salut à tous ;-)

Heu ... Comment on déclare un Any en vb.NET ?

++
187

Commentaire de Hades51 le 21/03/2005 14:53:01

C'est du a quoi l'erreur ligne 1 car 17 quand on colle ça dans un .vbs ?

Commentaire de Justice Yanga le 26/11/2006 18:24:29

Le code est bon mais pour qu'il fonctionne, il faut remplacer private sub resolutionEcran par public sub resolutionecran