然,如何处理呢?作者: ADAM 时间: 2003-10-10 22:20
在主窗體加入代碼:
Private Sub Form_Activate()
Dim I As Integer, J As Integer
Application.Echo False
DoCmd.RunCommand acCmdAppMaximize
DoCmd.Maximize
I = Me.WindowWidth
J = Me.WindowHeight
DoCmd.Restore
DoCmd.MoveSize 0, 0, I, J
DoCmd.Maximize
Application.Echo True
End Sub作者: on2008 时间: 2003-10-11 00:15
我在主窗体加入你提供的代码,点击按钮后弹出的小窗体保留docmd.restore,这样操作仍然同没有在主窗体加入代码一样。作者: ADAM 时间: 2003-10-11 00:23
應該沒問題的.
你要不傳上來看看作者: on2008 时间: 2003-10-11 08:13
事实上,按照您的代码,其效果窗体的四个边撑满屏幕可显示区域,并非实际意义上的最大化,也就是窗体上面的蓝色标题栏与工具栏的下缘对接而已。