请教：这种窗体如何在获得焦点的时候最大化并切内容自动居中呢

eyewitnes

还有这个窗体有闪烁的现象，如何能不闪烁？

petrelai

如果是要获得焦点时就最大化可以在窗体的获得焦点事件中加入
DoCmd.Maximize
至于切换内容自动居中.我的笨方法就是,先把最大化时的窗体里的各个控件的位置定好,到在窗体获得焦点事件时就改变它们的位置就行了.

eyewitnes

谢谢你的回复，按照你的方法在自己的电脑上可以，但如果到了分辨率不一样的电脑上，窗体最大化后其中的控件就做不到居中了

petrelai

那你可以在窗体的调整事件中,先把桌面的宽,长找出来,就把作决定.
如:
Private Sub Form_Resize()
On Error Resume Next
    Dim lngWidth As Long, lngHeight As Long
'控件宽度位置调整
    lngWidth = Me.WindowWidth
    lngHeight = Me.WindowHeight
    Me.barTool.Width = lngWidth + 40
    Me.subForm.Width = lngWidth - Me.subForm.Left
    Me.staBar.Width = lngWidth + 50
'空间高度位置调整
    Me.staBar.Top = lngHeight - Me.staBar.Height + 50
    Me.subMenu.Height = Me.staBar.Top - Me.subMenu.Top - 10
    Me.subForm.Height = Me.subMenu.Height
    Me.barSplit.Height = Me.subMenu.Height + 40
'触发子窗体调整大小事件
    Me.subForm.Form.Form_Resize
    Me.subMenu.Form.Form_Resize
End Sub