Load 语句示例 这个示例使用 Load 语句加载 Form 对象。要试用此示例,在 Form 对象的声明部分粘贴以下代码,然后运行此例并单击该 Form 对象。Private Sub Form_Click () Dim Answer, Msg as String ' 声明变量。 Unload Form1 ' 卸载窗体。 Msg = "Form1 has been unloaded. Choose Yes to load and " Msg = Msg & "display the form. Choose No to load the form " Msg = Msg & "and leave it invisible." Answer = MsgBox(Msg, vbYesNo) ' 获得用户响应。 If Answer = vbYes Then ' 测试应答。 Show ' 如果回答 Yes,则显示窗体。 Else Load Form1 ' 如果回答 NO,则仅加载窗体。 Msg = "Form1 is now loaded. Choose OK to display it." MsgBox Msg ' 显示消息。 Show ' 显示窗体。 End If End Sub
把窗体或控件加载到内存中。语法Load objectobjec 所在处是要加载的 Form 对象、MDIForm 对象或控件数组元素的名称。说明除非在加载窗体时不需要显示窗体,否则对于窗体不需要使用 Load 语句。在窗体还未被加载时,对窗体的任何引用(在 Set 或 If...TypeOf 语句以外)会自动加载该窗体。例如,Show 方法在显示窗体前会先加载它。一旦窗体被加载,不管它是否可见,它的属性及控件会被应用程序所改变。在某些情况下,也许需要在初始化时加载所有的窗体并在以后需要它们的时候显示它们。当 Visual Basic 加载 Form 对象时,先把窗体属性设置为初始值,再执行 Load 事件过程。当应用程序开始运行时,Visual Basic 自动加载并显示应用程序的启动窗体。在加载 MDIChild 属性为 True 的 Form(换言之,子窗体)时,而此时 MDIForm 还未被加载,那么会在子窗体前自动加载 MDIForm。因为 MDI 子窗体不能被隐藏起来,所以在 Form_Load 事件过程结束时马上可以见到 MID 子窗体。由 Visual Basic 函数产生的标准对话框,诸如 MsgBox 和 InputBox,不需要加载、显示或卸载即可简单地直接调用。
这个示例使用 Load 语句加载 Form 对象。要试用此示例,在 Form 对象的声明部分粘贴以下代码,然后运行此例并单击该 Form 对象。Private Sub Form_Click ()
Dim Answer, Msg as String ' 声明变量。
Unload Form1 ' 卸载窗体。
Msg = "Form1 has been unloaded. Choose Yes to load and "
Msg = Msg & "display the form. Choose No to load the form "
Msg = Msg & "and leave it invisible."
Answer = MsgBox(Msg, vbYesNo) ' 获得用户响应。
If Answer = vbYes Then ' 测试应答。
Show ' 如果回答 Yes,则显示窗体。
Else
Load Form1 ' 如果回答 NO,则仅加载窗体。
Msg = "Form1 is now loaded. Choose OK to display it."
MsgBox Msg ' 显示消息。
Show ' 显示窗体。
End If
End Sub