vb获得屏幕分辨率

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

推荐答案推荐于2018-05-17

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

温馨提示：答案为网友推荐，仅供参考

当前网址：http://11.wendadaohang.com/zd/FFP8Fq782.html

其他回答

第1个回答 2009-08-16

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

相似回答

VB 屏幕分辨率与刷新率的修改和查看答：在窗体上画一个按钮和四个文本框，运行如下代码：启动时，显示相应数据。修改后，单击按钮改变设置。Option Explicit Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long Private Declare Function ChangeDisplaySettings Lib "user32" Alias "Ch...