如果调用窗体居中代码

叶海峰　发表于：2007-10-29 15:30:38 　

以下代码能实现窗体居中,但如果能在每个窗体方便调用呢,请高手帮忙,谢谢!

DoCmd.Echo False
Dim x, y As Integer
DoCmd.Maximize
x = Me.WindowWidth
y = Me.WindowHeight
DoCmd.Restore
DoCmd.Echo True
Move (x - Me.WindowWidth) / 2, (y - Me.WindowHeight) / 2

Top

竹笛发表于：2007-10-29 15:51:05

Public Function g_frmCentre(frmName As String)
'本函数不适于ACCESS2000，适合于ACCESS XP或以上版本
    Application.Echo False
    Dim x, y As Integer
    DoCmd.Maximize
    x = Forms(frmName).WindowWidth
    y = Forms(frmName).WindowHeight
    DoCmd.Restore
    Application.Echo True
    Move (x - Forms(frmName).WindowWidth) / 2, (y - Forms(frmName).WindowHeight) / 2
End Function

Top

总记录：1篇页次：1/1 9 1 :

Access交流中心

如果调用窗体居中代码