Office中国论坛/Access中国论坛

标题: 请教：这种窗体如何在获得焦点的时候最大化并切内容自动居中呢 [打印本页]

作者: eyewitnes 时间: 2004-5-6 03:53
标题: 请教：这种窗体如何在获得焦点的时候最大化并切内容自动居中呢
[attach]4559[/attach]
还有这个窗体有闪烁的现象，如何能不闪烁？

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

作者: eyewitnes 时间: 2004-5-6 06:12
谢谢你的回复，按照你的方法在自己的电脑上可以，但如果到了分辨率不一样的电脑上，窗体最大化后其中的控件就做不到居中了

作者: petrelai 时间: 2004-5-6 18:03
那你可以在窗体的调整事件中,先把桌面的宽,长找出来,就把作决定.
如:
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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)