如何确定当前屏幕分辨率（2）
发布时间：2010/11/23 17:33:25 来源：www.xue.net 编辑：城市总裁吧
'函数: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
