窗体自动居中代码

　　使窗体居中显示代码

　　access中的窗体虽然设置了自动居中，但是打开后总是有点不居中的感觉，加下如下代码可以做到真正居中显示

　　Private Sub Form_Load()

　　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

　　下列代码适用于accessXP以上

　　'使用方法:

　　'Private Sub Form_Load()

　　'moveFormToCenter Me '居中

　　'End Sub

　　'Private Sub Form_Load()

　　'moveFormToCenter Me, 3000, 2000 '调整窗体大小并居中

　　'End Sub

　　Option Compare Database

　　Option Explicit

　　Type RECT

　　x1 As Long

　　y1 As Long

　　x2 As Long

　　y2 As Long

　　End Type

　　Public Declare Function GetClientRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long

　　'菜单栏高:22

　　'工具栏高:26

　　'状态栏高:20

视频学习

① 凡本网注明稿件来源为"原创"的所有文字、图片和音视频稿件，版权均属本网所有。任何媒体、网站或个人转载、链接转贴或以其他方式复制发表时必须注明"稿件来源：我考网"，违者本网将依法追究责任；

② 本网部分稿件来源于网络，任何单位或个人认为我考网发布的内容可能涉嫌侵犯其合法权益，应该及时向我考网书面反馈，并提供身份证明、权属证明及详细侵权情况证明，我考网在收到上述法律文件后，将会尽快移除被控侵权内容。