Access实例编程：如何确定当前屏幕分辨率

　　本文说明如何创建用户定义的样例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

　　'*****************************************************************