如何判断当前分辨率是800＊600还是1024＊768

chinayoxi

用ACCESS编写，如何判断当前分辨率是800＊600还是1024＊768的代码怎么写

mhaibo

这里有一个例子，请看

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