如何用vba得到系统现在的分辨率?

网络蜘蛛

不要那种最大化窗体的方法。

ganlinlao

骗点小分{: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

admin

{:soso_e179:}

admin

{:soso_e179:}