标题: 如何用vba得到系统现在的分辨率? [打印本页] 作者: 网络蜘蛛 时间: 2013-12-1 18:47 标题: 如何用vba得到系统现在的分辨率? 不要那种最大化窗体的方法。作者: ganlinlao 时间: 2013-12-1 19:48
骗点小分{:soso_e113:}
方法很多，方法之一
Sub DeskTopScreen()
On Error Resume Next
Set WMI = GetObject("Winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set A = WMI.ExecQuery("Select * From Win32_DesktopMonitor")
For Each B In A
w = B.ScreenWidth
H = B.ScreenHeight
MsgBox "屏幕高度:" & H & "屏幕宽度:" & w
Next
End Sub