VBA中如何获取显示器的长和宽

向前650809 · 发表于 2011-7-1 07:57

各位网友好，现要程序中放入一个窗体，显示时要让它在桌面的适当位置（如右下角），这得获致显示器的长和宽，请问在VBA中如何用代码获得桌面（显示器）的长和宽。
谢谢

兰色幻想 · 发表于 2011-7-1 08:10

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 X As Long, Y As Long
Y = GetSystemMetrics(SM_CYSCREEN)
X = GetSystemMetrics(SM_CXSCREEN)
MsgBox "您的屏幕分辨率为: " & X & " X " & Y

End Sub

那么的帅 · 发表于 2011-7-1 08:10

回复向前650809 的帖子

资料-获得显示器的分辨率(VBA).rar (6.66 KB, 下载次数: 55)

向前650809 · 发表于 2011-7-1 08:42

代码
Const SM_CXSCREEN = 0
Const SM_CYSCREEN = 1
是何意

向前650809 · 发表于 2011-7-1 09:18

如何让窗体显示时显示在桌面的右下角呢

向前650809 · 发表于 2011-7-1 09:26

这样的代码怎么不显示在右下角
UserForm1.Left = X - UserForm1.Width
UserForm1.Top = Y - UserForm1.Height

dhf327 · 发表于 2011-7-6 06:32

2楼的可以计算出显示器的长和宽

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