Office中国论坛/Access中国论坛

标题: 能不能在ACCESS中修改屏幕分辨率？ [打印本页]

作者: 夜夜无语 时间: 2006-4-10 23:11
标题: 能不能在ACCESS中修改屏幕分辨率？
我在1024X768下写了点东西，不过有些同事是用800X600的显示，想在运行程序时

１、读取当前显示分辨率

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

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

作者: 一点通 时间: 2006-4-10 23:15
这里有个例子

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

作者: 夜夜无语 时间: 2006-4-11 00:07

以下是引用一点通在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 时间: 2006-5-18 04:58
kankan

作者: LucasLynn 时间: 2006-5-18 06:18

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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)