Question

vb获得屏幕分辨率

假如屏幕的分辨率为1024*768，那么X=1024，Y=768，代码怎么写？

Answer 1

Private Sub Form_Load()
Dim x As Integer, y As Integer
x = Screen.Width / Screen.TwipsPerPixelX
y = Screen.Height / Screen.TwipsPerPixelY
MsgBox x
MsgBox y
End Sub

Answer 2

我也不知道我也说的对不对，那你就直接写高等于多少，宽等于多少吗？
如果你想叫他们同时放大的话，就得用一个调用一个函数了。不知道说的对不对，我也是刚学的，