能不能在ACCESS中修改屏幕分辨率？

夜夜无语

我在1024X768下写了点东西，不过有些同事是用800X600的显示，想在运行程序时

１、读取当前显示分辨率

２、如果不是1024X768则改成1024X768

３、退出程序时，还原显示分辨率

一点通

这里有个例子

http://www.office-cn.net/forum.php?mod=viewthread&tid=35127&replyID=175391&skin=1

夜夜无语

以下是引用一点通在2006-4-10 15:15:00的发言：


这里有个例子

http://www.office-cn.net/forum.php?mod=viewthread&tid=35127&replyID=175391&skin=1

这个例子下载了后，试一了下不行啊，我改成　800，600，16　后，加载那个窗体，没有任何变化。我用的还是CRT呢，如果液晶呢？

hwhan525

kankan

LucasLynn

Declare Function EnumDisplaySettings Lib "user32" Alias "EnumDisplaySettingsA" (ByVal lpszdevicename As Long, ByVal imodenum As Long, lpdevmode As Any) As Boolean
Declare Function ChangeDisplaySettings Lib "user32" Alias "ChangeDispalySettingsA" (lpdevmode As Any, ByVal dwflags As Long) As Long
Public Const CCHDEVICENAME = 32
Public Const CCHFORMNAME = 32
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