[分享]适应不同分辩率让窗体内控件居中

时　间:2004-06-08 00:00:00
作　者:竹笛   ID：8  城市：上海  QQ：2851379730
摘　要:[分享]适应不同分辩率让窗体内控件居中
正　文:

我们假设窗体中有一个标签:Label0,在窗体加载事件中写下如下代码:

Private Sub Form_Load()
    Dim rec As Rect
    DoCmd.Maximize 
    GetWindowRect Me.hwnd, rec
    Me![Label0].Left = ((rec.Right / 2) * 14.9) - (Me![Label0].Width / 2)
End Sub

在模块中写下如下代码:

Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As Rect) As Long
Public Type Rect
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long