第八章 vba控件常规使用.doc

vba控件常规使用 UserForm 基础 如何显示 UserForm 以下是用于显示 UserForm 编程语法是： UserFormName?.Show 要显示名为 UserForm1, UserForm 使用以下代码： UserForm1.Show 不显示它实际上还能加载 UserForm 装入内存。 复杂 UserForm 可能需要几秒钟以显示。 因为预先您能加载到内存, UserForm 可决定何时导致此开销。 要加载到内存 UserForm1 不显示它, 使用以下代码： Load UserForm1 若要显示 UserForm, 必须使用以前已显示 显示 方法。 如何以暂时隐藏 UserForm 如果要暂时隐藏 UserForm, 使用 隐藏 方法。 可能想要隐藏 UserForm 如果应用程序涉及用户窗体之间移动。 要隐藏 UserForm, 使用以下代码： UserForm1.Hide ? 如何从内存删除 UserForm 要从内存, 删除 UserForm 使用 Unload 语句。 要卸载， 名为 UserForm1, UserForm 使用以下代码： Unload UserForm1 如果您卸载 UserForm， 是与 UserForm 或者， 是与 UserForm 上控件的事件过程中 （例如, 您单击 CommandButton 控件）, 您可以使用 我 关键字代替的 UserForm 名称。 将关键字用于卸载 UserForm, Me 使用以下代码： Unload Me 如何使用 UserForm 事件 支持许多预定义事件， 可以附加到 VBA 过程。 在事件发生时, 该附加到事件过程运行。 单个操作由用户执行可初始化多事件。 之间最经常对 UserForm 使用事件是 Initialize 事件、 Click 事件, 和 Terminate 事件。?注意?包含事件过程 Visual Basic 模块可能称为 后面 UserForm 模块。 模块包含事件过程是不可见的 VisualBasic 编辑器 Project MicrosoftInternetExplorer 窗口?Modules?集合中。 您必须双击正文部分 UserForm 以查看 UserForm 代码模块。 如何捕获 UserForm 事件 要捕获 UserForm 事件, 请按照下列步骤操作： 1. Excel 中创建新工作簿。 2. 在 工具 菜单, 指向 宏 , 然后单击 VisualBasic 编辑器 。 3. 在 插入 菜单上, 单击要在工作簿中插入 UserForm UserForm 。 4. 双击以显示代码窗口对于 UserForm UserForm 。 5. 模块, 中键入如下代码： Private Sub UserForm_Click() Me.Height = Int(Rnd * 500) Me.Width = Int(Rnd * 750) End Sub Private Sub UserForm_Initialize() Me.Caption = Events Events Events! Me.BackColor = RGB(10, 25, 100) End Sub Private Sub UserForm_Resize() msg = Width: Me.Width Chr(10) Height: Me.Height MsgBox prompt:=msg, Title:=Resize Event End Sub Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) msg = Now Unloading Me.Caption MsgBox prompt:=msg, Title:=QueryClose Event End Sub Private Sub UserForm_Terminate() msg = Now Unloading Me.Caption MsgBox prompt:=msg, Title:=Terminate Event