Office中国论坛/Access中国论坛

标题: 获取屏幕分辩率的几种源码分享 [打印本页]

作者: tmtony 时间: 2014-9-14 08:46
标题: 获取屏幕分辩率的几种源码分享

1. 直接使用Access自身的方法

DoCmd.Echo False
Dim X, Y As Integer
DoCmd.Maximize
X = Me.InsideWidth
Y = Me.InsideHeight

DoCmd.Restore
DoCmd.Echo True
DoCmd.MoveSize (X - Me.InsideWidth) / 2, 0 '(y - Me.WindowHeight) / 2

缺点: 取得屏幕的宽度和高度 , 有点闪烁

2.使用API的方法

  Declare Function GetSystemMetrics32 Lib "user32" _
Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long

Sub DisplayMonitorInfo()
Dim X As Long, Y As Long
      X = GetSystemMetrics32(0) ' 宽度（像素）
      Y = GetSystemMetrics32(1) ' 高度（像素）
      MsgBox "屏幕分辨率为：" & X & " × " & Y & " 像素"
End Sub

推荐: 更好, 更准确,不闪烁

3.只适用VB的方法

Private Sub Form_Load()

MsgBox ("桌面宽度为:" & Screen.Width / Screen.TwipsPerPixelX & "像素,高度为:" & Screen.Height / Screen.TwipsPerPixelY & "像素")

End Sub

作者: 站到终点站 时间: 2014-9-15 17:10
谢谢版主，收藏了

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)