By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
424,827 Members | 2,195 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 424,827 IT Pros & Developers. It's quick & easy.

Change Screen Resolution using VB

P: n/a
I need some help with some VB language that will change the screen
resolution on a monitor when a MS-Access 2000 database is opened from
1024 x 768 to 800 x 600.
Any help with this effort would be deeply appreciated.
Thanks in advance....
Nov 13 '05 #1
Share this Question
Share on Google+
4 Replies


P: n/a
If your program changed the resolution setting of _my_ monitor, it would
only do so once, because I'd never run it again. It is entirely possible
that there is a Windows API could be used to do what you want -- if I knew
what it was, though, I wouldn't contribute to such a practice.

What did you have in mind for notebooks whose LCD screen is only really
useful at whatever its native setting is, which may well not be 800x600 --
my notebook's native setting is 1024x768.

Larry Linson
Microsoft Access MVP

"pjac" <pj**@erols.com> wrote in message
news:94**************************@posting.google.c om...
I need some help with some VB language that will change the screen
resolution on a monitor when a MS-Access 2000 database is opened from
1024 x 768 to 800 x 600.
Any help with this effort would be deeply appreciated.
Thanks in advance....

Nov 13 '05 #2

P: n/a
I don't know about changing the screen resolution, but there are
third-party form scaling solutions available that might help:

A shareware version of a form rescaling module I wrote called
ShrinkerStretcher is available at this web site:
http://www.peterssoftware.com/ss.htm

FMS has a sizer module at www.fmsinc.com.

The Access Developer's Handbook has form resizing code included:
http://www.amazon.com/exec/obidos/IS...064361-7403703

For more informmation, there are some great articles about form
scaling in the December 2000, and May 2001 SmartAccess newsletter.
Check it out here: http://www.smartaccessnewsletter.com

Hope this helps,

Peter De Baets
Peter's Software - MS Access Tools for Developers
http://www.peterssoftware.com

pj**@erols.com (pjac) wrote in message news:<94**************************@posting.google. com>...
I need some help with some VB language that will change the screen
resolution on a monitor when a MS-Access 2000 database is opened from
1024 x 768 to 800 x 600.
Any help with this effort would be deeply appreciated.
Thanks in advance....

Nov 13 '05 #3

P: n/a
"pjac" <pj**@erols.com> wrote in message
news:94**************************@posting.google.c om...
I need some help with some VB language that will change the screen
resolution on a monitor when a MS-Access 2000 database is opened from
1024 x 768 to 800 x 600.
Any help with this effort would be deeply appreciated.
Thanks in advance....


From a previous post by Arvin Meyer:

'************************************************* ****************
' DECLARATIONS SECTION
'************************************************* ****************

Option Compare Database
Option Explicit

Type RECT
x1 As Long
y1 As Long
x2 As Long
y2 As Long
End Type

' NOTE: The following declare statements are case sensitive.

Declare Function GetDesktopWindow Lib "User32" () As Long
Declare Function GetWindowRect Lib "User32" _
(ByVal hWnd As Long, rectangle As RECT) As Long
'================================================= =====

'This code shows how to change the screen resolution.

'Call the function like this:

' ChangeResolution 640, 480

'This would change the screen resolution to 640 pixels x 480 pixels. Note
that
'you can only change the resolution to values supported by the display.

'Paste the following code into a module:'

Private Declare Function ChangeDisplaySettings Lib "User32" Alias _
"ChangeDisplaySettingsA" (lpDevMode As Any, ByVal dwFlags As Long) As Long
Private Declare Function EnumDisplaySettings Lib "User32" Alias _
"EnumDisplaySettingsA" (ByVal lpszDeviceName As Long, ByVal iModeNum As _
Long, lpDevMode As Any) As Boolean

Const DM_PELSWIDTH = &H80000
Const DM_PELSHEIGHT = &H100000
Const CCFORMNAME = 32
Const CCDEVICENAME = 32

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

Public Function Change_Resolution(iWidth As Single, iHeight As Single)

Dim DevM As DEVMODE
Dim a As Boolean
Dim i As Long
Dim b As Long

i = 0

'Enumerate settings
Do
a = EnumDisplaySettings(0&, i&, DevM)
i = i + 1
Loop Until (a = False)

'Change settings
DevM.dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT

DevM.dmPelsWidth = iWidth
DevM.dmPelsHeight = iHeight

b = ChangeDisplaySettings(DevM, 0)

End Function

'************************************************* ****************
' FUNCTION: GetScreenResolution()
'
' PURPOSE:
' To determine the current screen size or resolution.
'
' RETURN:
' The current screen resolution. Typically one of the following:
' 640 x 480
' 800 x 600
' 1024 x 768
'
'************************************************* ****************
Function GetScreenResolution() As String

Dim R As RECT
Dim hWnd As Long
Dim RetVal As Long

hWnd = GetDesktopWindow()
RetVal = GetWindowRect(hWnd, R)
GetScreenResolution = (R.x2 - R.x1) & "x" & (R.y2 - R.y1)

End Function
Nov 13 '05 #4

P: n/a
Thanks to all who responded!! Especially John W. Very helpful!!!!!
Nov 13 '05 #5

This discussion thread is closed

Replies have been disabled for this discussion.