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
'*****************************************************************
'函数:GetScreenResolution()
'
'目的:
'来确定当前屏幕的大小或分辨率
'
'返回:
'当前屏幕分辨率，下列为典型值:
'640x480
'800x600
'1024x768
'
'*****************************************************************
FunctionGetScreenResolution()asString
DimRAsRECT
DimhWndAsLong
DimRetValAsLong
hWnd=GetDesktopWindow()
RetVal=GetWindowRect(hWnd,R)
GetScreenResolution=(R.x2-R.x1)&"x"&(R.y2-R.y1)
EndFunction
在视图菜单上，单击立即窗口。
在“立即窗口”中键入下行命令，然后按ENTER键：
?GetScreenResolution()
注意：当前屏幕分辨率显示在“立即窗口”中。如果当前分辨率是标准VGA，则在“立即”窗口中显示下列内容：
640x480
责任编辑：小草
