如何确定当前屏幕分辨率

Microsoftaccess2000

本文解释了如何创建一个用户定义的示例VisualBasicforApplications函数来确定当前的屏幕分辨率。您可以使用此功能来确定是以标准VGA模式(640x480)还是SuperVGA模式(800x600、1024x768或1600x1200)运行。

文本:

以下示例显示了如何创建和使用示例GetScreenResolution()函数。

注意:您可能在现有的Microsoftaccess库中定义了一些MicrosoftWindowsAPI函数；因此，你的陈述可能会重复。如果收到重复过程名错误消息，请删除或注释掉代码中的声明语句。

创建一个新模块，然后键入以下声明和函数:

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

声明部分

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

OptionExplicit

TypeRECT

x1AsLong

y1AsLong

x2AsLong

y2AsLong

末端类型

注意:以下声明区分大小写。

DeclareFunctionGetDesktopWindowLib " user 32 "()as long

DeclareFunctionGetWindowRectLib " user 32 " u

(ByValhWndAsLong，rectangleAsRECT)AsLong

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *