邓英超 发表于 2013-7-4 10:36:20

在Access中如何获得系统的屏幕区域大小？

淡写轻描 发表于 2013-7-4 11:02:40

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这个程序你可以试着调试一下，应该可以
页: [1]
查看完整版本: 在Access中如何获得系统的屏幕区域大小？