2024年4月5日发(作者：)
vba控件常规使用
UserForm 基础
如何显示 UserForm
以下是用于显示 UserForm 编程语法是：
UserFormName .Show
要显示名为 UserForm1, UserForm 使用以下代码：
不显示它实际上还能加载 UserForm 装入内存。 复杂 UserForm 可能需要几秒钟以显示。
因为预先您能加载到内存, UserForm 可决定何时导致此开销。 要加载到内存 UserForm1
不显示它, 使用以下代码：
Load UserForm1
若要显示 UserForm, 必须使用以前已显示 显示 方法。
如何以暂时隐藏 UserForm
如果要暂时隐藏 UserForm, 使用 隐藏 方法。 可能想要隐藏 UserForm 如果应用程序涉
及用户窗体之间移动。 要隐藏 UserForm, 使用以下代码：
如何从内存删除 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 。
模块, 中键入如下代码：
Private Sub UserForm_Click()
= Int(Rnd * 500)
= Int(Rnd * 750)
End Sub
Private Sub UserForm_Initialize()
n = "Events Events Events!"
lor = RGB(10, 25, 100)
End Sub
Private Sub UserForm_Resize()
msg = "Width: " & & Chr(10) & "Height: " &
5.
MsgBox prompt:=msg, Title:="Resize Event"
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer,
CloseMode As Integer)
msg = "Now Unloading " & n
MsgBox prompt:=msg, Title:="QueryClose Event"
End Sub
Private Sub UserForm_Terminate()
msg = "Now Unloading " & n
MsgBox prompt:=msg, Title:="Terminate Event"
End Sub
6. 在 运行 菜单上, 单击 运行子过程 / 用户窗体 。
UserForm 首先加载, 时宏使用 Initialize 事件改为 " 事件事件事件 ! " 和 BackColor 属
性以深蓝色的 UserForm Caption 属性。
当您单击 UserForm, 您初始化 Click 事件。 调整 UserForm Click 事件。 因为您创建
Resize 事件, 过程单击 UserForm 后收到两个消息框。 因为 Click 事件代码更改宽度属
性和 Height 属性是 UserForm Resize 事件发生两次。
关闭 UserForm 初始化 QueryClose 事件。 QueryClose 事件显示消息框包含标题为
Initialize 事件， 您赋予 UserForm 代码中。 可以使用时要执行特定的操作集如果用户关
闭 UserForm QueryClose 事件。
发布评论