书接上文，以下是VBA用户窗体中常用控件的详细解析，涵盖核心属性、关键事件、典型应用场景及代码示例，助您精准掌握每个控件的使用方法。

三、核心控件精讲

3.7.框架（Frame）

3.7.1、框架控件（Frame）是什么？

• 作用：Frame 是一个容器控件，用于将其他控件（如选项按钮、复选框等）分组，形成逻辑上的视觉区块。
• 核心价值：
• 提升界面美观度，让控件分类更清晰
• 实现互斥功能（例如：同一 Frame 内的选项按钮只能选其一）
• 动态控制一组控件的显示/隐藏状态

3.7.2、如何添加 Frame 控件？

1. 打开 VBA 编辑器（Alt+F11） → 插入用户窗体（UserForm）
2. 在工具箱中找到 Frame 控件（图标通常为矩形框）
3. 在窗体上拖动鼠标绘制 Frame，调整大小和位置。

3.7.3、Frame 的常用属性

以下是 Frame 控件的所有属性（按功能分类），部分属性需结合代码动态设置：

属性应用的一些高级技巧与注意事项

1. 滚动条实现

设置 ScrollBars = 2（垂直滚动条）

当子控件超出 Frame 高度时，自动显示滚动条（需代码动态调整子控件位置）。

2. 透明背景

设置 BackStyle = 0 - fmBackStyleTransparent（需子控件背景也为透明）。

3. 与 MultiPage 控件的区别

Frame 是静态容器，而 MultiPage 支持多标签页动态切换。

4. 性能优化

动态加载大量控件时，使用 UserForm.Repaint 避免闪烁。

3.7.4、向 Frame 添加子控件

关键步骤：

1. 必须先选中 Frame（点击 Frame 使其边缘出现选中标记）
2. 再从工具箱中选择其他控件（如选项按钮、复选框等）
3. 在 Frame 内部绘制控件（确保控件位于 Frame 内）

正确操作：

错误操作：
直接将控件拖到 Frame 上方会导致控件不属于 Frame 分组！

3.7.5、Frame 的事件

• Click：点击 Frame 时触发（较少使用）
• DblClick：双击 Frame 时触发
• 示例代码：

Private Sub Frame1_Click()
    MsgBox "你点击了框架！"
End Sub

除了基础的 Click 和 DblClick，以下是更多实用事件：

3.7.6、常见应用场景

1. 选项按钮（OptionButton）分组

• 将多个选项按钮放在同一 Frame 内实现互斥选择
• 示例：性别选择（男/女）

2. 动态显示/隐藏一组控件

' 隐藏 Frame 及其内部所有控件
Frame1.Visible = False

3. 美化界面布局

• 用不同 Frame 划分功能区域（如“个人信息”、“账户设置”）

4.动态添加控件到 Frame

With Frame1.Controls.Add("Forms.OptionButton.1") ' 添加选项按钮
    .Name = "OptNew"
    .Caption = "动态添加的选项"
    .Left = 10
    .Top = 30
    .Value = True
End With

5.遍历 Frame 内的子控件

Dim ctrl As Control
For Each ctrl In Frame1.Controls
    If TypeName(ctrl) = "OptionButton" Then
        If ctrl.Value Then
            MsgBox "选中项：" & ctrl.Caption
        End If
    End If
Next ctrl

6.动态调整 Frame 布局

' 隐藏 Frame 并调整窗体大小
Frame1.Visible = False
UserForm1.Height = UserForm1.Height - Frame1.Height

3.7.7、常见问题及解决

Q1：控件无法正确添加到 Frame 内？

• 原因：未先选中 Frame 直接添加控件
• 解决：删除控件 → 选中 Frame → 重新添加

Q2：如何动态加载控件到 Frame？

' 在 Frame 内动态添加选项按钮
With Frame1.Controls.Add("Forms.OptionButton.1")
    .Caption = "新选项"
    .Left = 10
    .Top = 20
End With

Q3：如何让 Frame 支持滚动条？

• 设置 Frame 的 ScrollBars 属性为 2 - fmScrollBarsVertical

Q4：如何让 Frame 内的控件居中显示？

' 水平居中子控件（假设子控件宽度为 80）
Frame1.Controls("CheckBox1").Left = (Frame1.Width - 80) / 2

Q5：如何保存/恢复 Frame 的状态？

' 保存子控件状态到 Tag
Frame1.Tag = Frame1.Controls("OptionButton1").Value

' 恢复状态
Frame1.Controls("OptionButton1").Value = CBool(Frame1.Tag)

Q6：Frame 无法响应键盘事件？

• Frame 本身不支持键盘事件（如 KeyPress），需在子控件或窗体级别处理。

3.7.8、总结

• 核心：Frame 是 VBA 界面设计的“容器工具”，通过分组提升交互逻辑和美观度。
• 重点掌握：属性动态设置、事件响应、子控件操作。
• 实践建议：结合具体需求（如动态表单、选项分组）动手编写代码，观察效果。