让所有窗体居中的函数或模块

rainy　发表于：2013-05-14 22:04:05 　

我设计好个多窗体，但有的窗体打开不是真正居中的，可以使用以下的函数让一个窗体居中，但有没有一个函数让所有的窗体都居中呢？

Private Sub Form_Load()
'不适于ACCESS2000，适合于ACCESS XP或以上版本
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
End Sub

Top

rainy 发表于：2013-05-14 22:37:05

设计好多个窗体，但有的窗体打开不是真正居中的，可以使用以下的函数让一个窗体居中，但有没有一个函数让所有的窗体都居中呢？

Top

殷小宝发表于：2013-05-14 23:20:13

采用遍历窗体的办法：for each frm in All.forms……next

Top

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

Access交流中心

让所有窗体居中的函数或模块