Office中国论坛/Access中国论坛

标题: 如何判断当前分辨率是800＊600还是1024＊768 [打印本页]

作者: chinayoxi 时间: 2005-4-13 20:06
标题: 如何判断当前分辨率是800＊600还是1024＊768
用ACCESS编写，如何判断当前分辨率是800＊600还是1024＊768的代码怎么写

作者: mhaibo 时间: 2005-4-14 00:28
这里有一个例子，请看

Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Private Const SM_CXSCREEN = 0
Private Const SM_CYSCREEN = 1
Private Sub Command0_Click()
Dim x As Long, y As Long
x = GetSystemMetrics(SM_CXSCREEN)
y = GetSystemMetrics(SM_CYSCREEN)
MsgBox x & " " & y
End Sub

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)