MyTetra Share
Делитесь знаниями!
Как программно узнать разрешение экрана
02.03.2020
14:03
Текстовые метки: DPI, разрешение экрана
Раздел: VB
With GetObject("winmgmts:\\.\root\cimv2")
    For Each x In .ExecQuery("Select * From Win32_DisplayConfiguration")
        MsgBox "Horizontal resolution: " & x.PelsWidth
        MsgBox "Vertical resolution: " & x.PelsHeight
        MsgBox "Name: " & x.DeviceName
        MsgBox "Color depth: " & x.BitsPerPel
    Next
End With
Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования