Jump to content
  • Advertisement


This topic is now archived and is closed to further replies.


changing screen res in VB

This topic is 6467 days old which is more than the 365 day threshold we allow for new replies. Please post a new topic.

If you intended to correct an error in the post then please contact us.

Recommended Posts

how do you change the screen res from within A vb program? Nothing is ever easy but everything is possible

Share this post

Link to post
Share on other sites
I completely ripped this off from www.allapi.net (especially http://www.allapi.net/tips/tip049.php) so all credit goes to them

In a module:
  Declare Function EnumDisplaySettings Lib "user32" _
Alias "EnumDisplaySettingsA" _
(ByVal lpszDeviceName As Long, _
ByVal iModeNum As Long, _
lpDevMode As Any) As Boolean

Declare Function ChangeDisplaySettingsLib "user32" _
Alias "ChangeDisplaySettingsA" _
(lpDevMode As Any, ByVal dwFlags As Long) As Long

Declare Function ExitWindowsEx Lib "user32" _
(ByVal uFlags As Long, ByVal dwReserved As Long) As Long

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_TEST = &H4

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

Sub SetResolution(Xres As Integer, Yres As Integer, bpp Ss Integer)

''Get the info into DevM
erg& = EnumDisplaySettings(0&, 0&, DevM)
''We don''t change the colordepth, because a
''rebot will be necessary

DevM.dmFields = DM_PELSWIDTH Or
DevM.dmPelsWidth = Xres ''ScreenWidth
DevM.dmPelsHeight = Yres ''ScreenHeight
''DevM.dmBitsPerPel = bpp (could be 8, 16, 32 or even 4)

''Now change the display and check if possible

erg& = ChangeDisplaySettings(DevM, CDS_TEST)

''Check if successful

Select Case erg&
an = MsgBox("You''ve to reboot", vbYesNo + vbSystemModal, "Info")
If an = vbYes Then
erg& = ExitWindowsEx(EWX_REBOOT, 0&)
End If
erg& = ChangeDisplaySettings(DevM,
MsgBox "Everything''s ok", vbOKOnly +
vbSystemModal, "It worked!"
Case Else
MsgBox "Mode not supported", vbOKOnly +
vbSystemModal, "Error"
End Select

End Sub

Don''t blame me if it doesn''t work www.allapi.net is very useful for this kind of thing.


Share this post

Link to post
Share on other sites
Network admin has disable the ability to change display setting on the computers at college. Our final year project has been designed for a screen resolution of at least 1080,768(this is the specified resolution given by the compay we are doing the project for). The screen res at college is set to 900,600. This will mean when demostrating our program at college it will look crap.

Nothing is ever easy
but everything is possible

Share this post

Link to post
Share on other sites
thanks man the code works. You might what too change the 'sS' at the procedure start to 'As'.
Thank man, we will put you on the credits.

Nothing is ever easy
but everything is possible

Edited by - Tetrix on March 28, 2001 5:13:43 AM

Share this post

Link to post
Share on other sites

  • Advertisement

Important Information

By using GameDev.net, you agree to our community Guidelines, Terms of Use, and Privacy Policy.

GameDev.net is your game development community. Create an account for your GameDev Portfolio and participate in the largest developer community in the games industry.

Sign me up!