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

　　'

　　'目的:

　　'来确定当前屏幕的大小或分辨率

　　'

　　'返回:

　　'当前屏幕分辨率，下列为典型值:

　　'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