VB如何打开或关闭窗体窗口、代码窗口？

如题所述

VB使用Unload 语句卸载窗体。

Unload 语句

从内存中卸载窗体或控件。

语法

Unload object

object 所在处是要卸载的 Form 对象或控件数组元素的名称。

说明

当所占内存另有它用，或需要重新设置窗体、控件的属性为初始值时，就有必要卸载窗体或控件。

在卸载窗体前，会发生 Query_Unload 事件过程，然后是 Form_Unload 事件过程。在其中任一过程中设置 cancel 参数为 True 可防止窗体被卸载。若为 MDIForm 对象，先发生 MDIForm 对象的 Query_Unload 事件过程，接着是各 MDI 子窗体 的 Query_Unload 事件过程和 Form_Unload 事件过程，最后是 MDIForm 对象的 Form_Unload 事件过程。

注意 在卸载窗体时，只有显示的部件被卸载。和该窗体模块相关联的代码还保持在内存中。

Unload 语句示例

这个示例使用 Unload 语句来卸载 Form 对象。在运行此例前，在 Form 对象的声明部分粘贴以下代码，然后运行此例并单击该 Form 对象。

Private Sub Form_Click()    Dim Answer, Msg   ' 声明变量。    Unload Form1   ' 卸载窗体。    Msg = "Form1已被卸载。选择是，加载和"    Msg = Msg & "显示窗体。选择否，不加载窗体，"    Msg = Msg & "并把它隐藏."    Answer = MsgBox(Msg, vbYesNo)   ' 获得用户响应。    If Answer = vbYes Then   ' 测试应答。        Show   ' 如果回答 Yes，则显示窗体。    Else        Load Form1   ' 如果回答 No，仅加载窗体。        Msg = "Form1现在将加载。选择确定以显示它."        MsgBox Msg   ' 显示信息。        Show   ' 显示窗体。    End IfEnd Sub

   

 

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/s872pfp7v2427s7pqs.html