标题: 在Access中如何获得系统的屏幕区域大小？ [打印本页] 作者: 邓英超 时间: 2013-7-4 10:36 标题: 在Access中如何获得系统的屏幕区域大小？ 作者: 淡写轻描 时间: 2013-7-4 11:02
Private Declare Function GetSystemMetricsLib "user32" (ByVal nIndex As Long) As LongPrivate Const SM_CXSCREEN = 0Private Const SM_CYSCREEN = 1Private Sub Command0_Click()Dim x As Long, y As Longx = GetSystemMetrics(SM_CXSCREEN)y = GetSystemMetrics(SM_CYSCREEN)MsgBox x & " " & yEnd Sub这个程序你可以试着调试一下，应该可以