VBA 宏
功能
程序
TOP
❮ ❯

VBA-第 12.1 课。用户表单 (UserForm)

UserForm 对象是一个窗口或对话框，是应用程序用户界面的一部分。

UserForm 允许您在项目中创建窗口或对话框。在窗体上，您可以绘制并可以看到控件。

用户窗体具有定义其外观的属性，例如位置、大小、颜色及其行为的方面。

开发表单时：

  • 每个窗体窗口都有最小化、展开和关闭按钮。
  • 您可以在“选项”对话框的“常规”选项卡上查看形状网格并调整网格线的大小。
  • 使用工具栏上的按钮在窗体上绘制控件。在“选项”对话框的“常规”选项卡上，您可以自定义控件以与表单网格对齐。

    • 创建表单（UserForm）

    要添加 UserForm，我们需要在添加新模块时执行相同的操作：

    之后就会出现表单（UserForm）和工具栏（Toolbox）：

    如果您没有看到“属性”窗口 (Properties)，请确保它已显示，然后首先编辑名称 UserForm（以便您以后可以轻松找到它）：

    表单 (UserForm) 有自己的事件，就像工作簿或工作表一样。要添加事件，请双击 UserForm。

    现在让我们创建两个事件来看看它是如何工作的。第一个事件将设置 UserForm 的初始大小，第二个事件将在用户单击时将其大小增加 50px。

    UserForm_Initialize 事件将在 UserForm 启动时触发：

    Private Sub UserForm_Initialize()
    my_userform.Height = 100
    my_userform.Width  = 100
End Sub

    为了简化代码，我们可以使用 Me 代替名称 UserForm （因为此代码位于我们正在使用的 UserForm 中）：

    Private Sub UserForm_Initialize()
    Me.Height = 100
    Me.Width  = 100
End Sub

    当用户单击 UserForm 时，将发生第二个事件：

    Private Sub UserForm_Initialize()
    Me.Height = 100
    Me.Width  = 100
End Sub

Private Sub UserForm_Click()
    Me.Height = Me.Height + 50
    Me.Width  = Me.Width + 50
End Sub

    启动表单 (UserForm)

    要在过程中运行 UserForm，请使用 Show：

    Sub show_userform()
     my_userform.Show
End Sub
    ❮ Previous Next ❯