Change Resolution

[imanurag]

Hi All,
I am currently working on a product using vb and ms- access..
I want to change the resolution of my own software irrespective of windows settings
as done in case of various games.The product best works on 800-600

[lotus18]

Hi

I'm using this for some of my program. This example came from allapi.net

[code=vb]

Option Explicit
Const WM_DISPLAYCHANG E = &H7E
Const HWND_BROADCAST = &HFFFF&
Const EWX_LOGOFF = 0
Const EWX_SHUTDOWN = 1
Const EWX_REBOOT = 2
Const EWX_FORCE = 4
Const CCDEVICENAME = 32
Const CCFORMNAME = 32
Const DM_BITSPERPEL = &H40000
Const DM_PELSWIDTH = &H80000
Const DM_PELSHEIGHT = &H100000
Const CDS_UPDATEREGIS TRY = &H1
Const CDS_TEST = &H4
Const DISP_CHANGE_SUC CESSFUL = 0
Const DISP_CHANGE_RES TART = 1
Const BITSPIXEL = 12
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
dmDisplayFreque ncy As Long
End Type
Private Declare Function EnumDisplaySett ings Lib "user32" Alias "EnumDisplaySet tingsA" (ByVal lpszDeviceName As Long, ByVal iModeNum As Long, lpDevMode As Any) As Boolean
Private Declare Function ChangeDisplaySe ttings Lib "user32" Alias "ChangeDisplayS ettingsA" (lpDevMode As Any, ByVal dwFlags As Long) As Long
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long
Private Declare Function CreateDC Lib "gdi32" Alias "CreateDCA" (ByVal lpDriverName As String, ByVal lpDeviceName As String, ByVal lpOutput As String, ByVal lpInitData As Any) As Long
Private Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessag eA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Dim OldX As Long, OldY As Long, nDC As Long
Sub ChangeRes(X As Long, Y As Long, Bits As Long)
Dim DevM As DEVMODE, ScInfo As Long, erg As Long, an As VbMsgBoxResult
'Get the info into DevM
erg = EnumDisplaySett ings(0&, 0&, DevM)
'This is what we're going to change
DevM.dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT Or DM_BITSPERPEL
DevM.dmPelsWidt h = X 'ScreenWidth
DevM.dmPelsHeig ht = Y 'ScreenHeight
DevM.dmBitsPerP el = Bits '(can be 8, 16, 24, 32 or even 4)
'Now change the display and check if possible
erg = ChangeDisplaySe ttings(DevM, CDS_TEST)
'Check if succesfull
Select Case erg&
Case DISP_CHANGE_RES TART
an = MsgBox("You've to reboot", vbYesNo + vbSystemModal, "Info")
If an = vbYes Then
erg& = ExitWindowsEx(E WX_REBOOT, 0&)
End If
Case DISP_CHANGE_SUC CESSFUL
erg = ChangeDisplaySe ttings(DevM, CDS_UPDATEREGIS TRY)
ScInfo = Y * 2 ^ 16 + X
'Notify all the windows of the screen resolution change
SendMessage HWND_BROADCAST, WM_DISPLAYCHANG E, ByVal Bits, ByVal ScInfo
MsgBox "Everything 's ok", vbOKOnly + vbSystemModal, "It worked!"
Case Else
MsgBox "Mode not supported", vbOKOnly + vbSystemModal, "Error"
End Select
End Sub
Private Sub Form_Load()
Dim nDC As Long
'retrieve the screen's resolution
OldX = Screen.Width / Screen.TwipsPer PixelX
OldY = Screen.Height / Screen.TwipsPer PixelY
'Create a device context, compatible with the screen
nDC = CreateDC("DISPL AY", vbNullString, vbNullString, ByVal 0&)
'Change the screen's resolution
ChangeRes 800, 600, GetDeviceCaps(n DC, BITSPIXEL)
End Sub
Private Sub Form_Unload(Can cel As Integer)
'restore the screen resolution
ChangeRes OldX, OldY, GetDeviceCaps(n DC, BITSPIXEL)
'delete our device context
DeleteDC nDC
End Sub

[/code]

Rey Sean

[shuvo2k6]

Hi Rey Sean,
It is also helpful for others.

Regards,
shuvo2k6