[已解决]如何用VBA判断显示器的分辨率

ycb20010823 · 发表于 2011-8-20 07:14

写完一个VBA程序时，朋友多数让给设计一个界面，在本人的19液晶显示器（分辨率是1440*900）设置完之后，存到笔记本电脑上，或是17纯平显示器上，不能自动适应分辨率，不少按钮在屏幕外面，严重影响了美化效果，
如何用VBA判断一下，是多大的分辨率，然后再根据分辨率设计主界面图片大小的代码，怎么写啊，请朋友帮忙

最佳答案

月排行榜 / 总排行榜

zjdh

2011-8-20 10:02

本帖最后由 zjdh 于 2011-8-20 10:08 编辑

Option Explicit
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Const SM_CXSCREEN = 0
Const SM_CYSCREEN = 1
Sub Get_System_Metrics()
Dim XVal As Long, YVal As Long,R
YVal = GetSystemMetrics(SM_CYSCREEN)
XVal = GetSystemMetrics(SM_CXSCREEN)
'MsgBox "您的屏幕分辨率为: " & XVal & " X " & YVal
R = Application.Min(XVal / 1440, YVal / 900) * 100
ActiveWindow.Zoom = R
End Sub

复制代码

跳转到最佳答案楼层

zjdh · 发表于 2011-8-20 08:30

本帖最后由 zjdh 于 2011-8-20 09:57 编辑

‘返回屏幕分辨率
Option Explicit
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Const SM_CXSCREEN = 0
Const SM_CYSCREEN = 1
Sub Get_System_Metrics()
Dim XVal As Long, YVal As Long
YVal = GetSystemMetrics(SM_CYSCREEN)
XVal = GetSystemMetrics(SM_CXSCREEN)
MsgBox "您的屏幕分辨率为: " & XVal & " X " & YVal
End Sub

复制代码

那么的帅 · 发表于 2011-8-20 08:32

回复 ycb20010823 的帖子

Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Const SM_CXSCREEN = 0
Const SM_CYSCREEN = 1
Sub Get_System_Metrics()
Dim X As Long, Y As Long
Y = GetSystemMetrics(SM_CYSCREEN)
X = GetSystemMetrics(SM_CXSCREEN)
MsgBox "您的屏幕分辨率为: " & X & " X " & Y
End Sub

复制代码

kevin_2010 · 发表于 2011-8-20 08:36

这也能，看来是万能啊

zjdh · 发表于 2011-8-20 08:47

得到分辨率再与显示比例挂钩就可以啦，显示比例语句：
ActiveWindow.Zoom = 75 ‘显示比例75%

zjdh · 发表于 2011-8-20 10:02

本帖最后由 zjdh 于 2011-8-20 10:08 编辑

Option Explicit
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Const SM_CXSCREEN = 0
Const SM_CYSCREEN = 1
Sub Get_System_Metrics()
Dim XVal As Long, YVal As Long,R
YVal = GetSystemMetrics(SM_CYSCREEN)
XVal = GetSystemMetrics(SM_CXSCREEN)
'MsgBox "您的屏幕分辨率为: " & XVal & " X " & YVal
R = Application.Min(XVal / 1440, YVal / 900) * 100
ActiveWindow.Zoom = R
End Sub

复制代码

ycb20010823 · 发表于 2011-8-22 17:40

我的最终要求就是，我的表格里输入一张做为界面的图片，打开后，这个图片，能自动适应不同的显示器，比如22液晶的1680*1050分辨率，能全屏，拿到CRT17上的1024*768分辨率，也能满屏，上传了附件，请朋友再给看一下！！

zjdh · 发表于 2011-8-22 20:37

由于横向与垂直像素比不同还是有点不尽满意，基本可以用用：

自适应界面.rar (30.85 KB, 下载次数: 32)

zjdh · 发表于 2011-8-22 20:44

如果在某个分辨率下满屏程度不够，可以直接调整界面（图片大小），保存即可，不过也要兼顾一下其他分辨率的显示情况！

norika8012 · 发表于 2011-8-21 11:13

		自动登录	找回密码
密码			注册