使窗体居中显示代码 / q/ K3 Y; Z# O ]* v access中的窗体虽然设置了自动居中，但是打开后总是有点不居中的感觉，加下如下代码可以做到真正居中显示 * M @! k* a8 n6 n, v% A Private Sub Form_Load(). K1 R ^. s- f1 h
DoCmd.Echo False0 ^$ s4 T8 u1 I) Q
Dim x, y As Integer; E2 K0 e5 K" o; y0 p% E
DoCmd.Maximize# I4 I1 G6 D0 U
x = Me.WindowWidth ; @6 z9 A6 _% C7 | y = Me.WindowHeight/ I9 G D) i) X) y
DoCmd.Restore. z3 ]8 V" ?: M
DoCmd.Echo True) W& d5 G) \3 O: C' P5 v! Z
Move (x - Me.WindowWidth) / 2, (y - Me.WindowHeight) / 20 R# v9 S M* }- H3 E! ^ K
End Sub
发表于 2012-7-31 22:26:35
