如何用vba得到系統(tǒng)現(xiàn)在的分辨率?

網(wǎng)絡(luò)蜘蛛

不要那種最大化窗體的方法。

ganlinlao

騙點(diǎn)小分{: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:}

snow1396

關(guān)注一下

snow1396

好好學(xué)習(xí)