运行窗口:
当输入123后,按下退出键后,回到主窗口:
二:设置Application对象的Left属性(从屏幕左边界至Microsoft Excel主窗口左边界的距离)和/或Top属性(从屏幕顶端到Microsoft Excel主窗口顶端的距离)将Application对象移出屏幕外,实现隐藏Excel主窗口,如下面的代码所示。
Private Sub Workbook_Open()
Application.WindowState = xlNormal
Application.Left = 10000
UserForm1.StartUpPosition = 2
UserForm1.Show
End Sub
同样为了使程序可视化,我仍写了如下代码:
Private Sub Frame1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If UserForm1.TextBox2 = 123 Then
Application.Visible = True
Application.WindowState = xlMaximized
Else
UserForm1.TextBox2.SetFocus
End If
End Sub
读者可以自己去验证一下我这里就不再截图了,代码解析:
工作簿的Open事件过程,设置Application对象的Left属性为一个大的数值,从而将应用程序窗口移出屏幕。
第2行代码将应用程序窗口设置为正常状态,只有当应用程序窗口正常显示时才能够设置Application对象的Left属性。
第3行代码将Application对象的Left属性设置为一个大的数值,从而隐藏Excel主窗口。
第4行代码设置用户窗体的StartUpPosition属性值为2,使窗体显示在屏幕的中央。StartUpPosition属性返回或设置一个值,用来指定用户窗体第一次出现时的位置,
在第二段代码的第四行代码:Application.WindowState = xlMaximized 是使主窗体最大化。
今日内容回向:
1:如何隐藏主窗口?
2 :上述两种方法的意义是什么?