我正在使用以下代码:
Private Sub Form_Load()
ResWidth = Screen.Width \ Screen.TwipsPerPixelX
ResHeight = Screen.Height \ Screen.TwipsPerPixelY
ScreenRes = ResWidth & "x" & ResHeight
MsgBox (ScreenRes)
End Sub
我在谷歌上搜寻了一些类似的代码,但问题是,我总是收到一个消息框,说我的分辨率是1200x1200,尽管我的实际分辨率是1920x1200。为什么会得到错误的结果呢?