如何确定当前屏幕分辨率（1）
发布时间：2010/11/23 17:32:53 来源：www.xue.net 编辑：城市总裁吧
Microsoftaccess2000
本文说明如何创建用户定义的样例VisualBasicforApplications函数以确定当前屏幕分辨率。您可以使用本函数确定是在标准VGA模式(640x480)还是在SuperVGA模式（800x600、1024x768或1600x1200）下运行。
正文：
下面的示例说明如何创建并使用样例GetScreenResolution()函数。
备注：您可能有某些在现有Microsoftaccess库中定义的MicrosoftWindowsAPI函数；因此，您的声明可能被重复。如果您收到重复过程名称错误消息，请在代码中删除或注释出声明语句。
新建模块，然后键入下列“声明”和函数：
'*****************************************************************
'DECLARATIONSSECTION
'*****************************************************************
OptionExplicit
TypeRECT
x1AsLong
y1AsLong
x2AsLong
y2AsLong
EndType
'NOTE:Thefollowingdeclarestatementsarecasesensitive.
DeclareFunctionGetDesktopWindowLib"User32"()AsLong
DeclareFunctionGetWindowRectLib"User32"_
(ByValhWndAsLong,rectangleAsRECT)AsLong
