如何确定当前屏幕分辨率
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
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
0条评论