怎么样窗体最大化的时候不出现还原按钮?
2个回答
展开全部
Private Sub Form_Load()
Dim I, J As Integer '最大化窗口,不显示系统状态栏
Access.SetOption "Show Status Bar", False DoCmd.RunCommand acCmdAppMaximize
DoCmd.Maximize
I = Me.WindowWidth
J = Me.WindowHeight
DoCmd.Restore DoCmd.MoveSize 0, 0, I, J '打开屏幕刷新
Application.Echo True
End Sub
Private Sub Form_Open(Cancel As Integer)
Application.Echo False
End Sub
Dim I, J As Integer '最大化窗口,不显示系统状态栏
Access.SetOption "Show Status Bar", False DoCmd.RunCommand acCmdAppMaximize
DoCmd.Maximize
I = Me.WindowWidth
J = Me.WindowHeight
DoCmd.Restore DoCmd.MoveSize 0, 0, I, J '打开屏幕刷新
Application.Echo True
End Sub
Private Sub Form_Open(Cancel As Integer)
Application.Echo False
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询