如何为Microsoft Forms 2.0 Frame内的控件添加代码？

一、直接适配Frame内控件的代码写法 #

Microsoft Forms 2.0 Frame作为容器控件，内部控件的事件代码无法通过右键控件直接添加，必须在Frame专属的代码模块中编写：

1. 右键Frame控件，选择“查看代码”打开其专属代码窗口（此时Me指代Frame容器本身）
2. 将原有代码直接复制到该模块中，无需修改控件引用路径（因为Me已指向Frame，可直接调用内部控件）

修改后的代码示例：

Private Sub SpinButton1_SpinUp()
    If Me.TextBox2 = "" Then Me.TextBox2 = 0
    Me.TextBox2 = Me.TextBox2 + 1
End Sub

Private Sub SpinButton1_SpinDown()
    If Me.TextBox2 = "" Then Me.TextBox2 = 0
    Me.TextBox2 = Me.TextBox2 - 1
End Sub

Private Sub SpinButton11_SpinUp()
    If Me.TextBox21 = "" Then Me.TextBox21 = 0
    Me.TextBox21 = Me.TextBox21 + 1
End Sub

Private Sub SpinButton11_SpinDown()
    If Me.TextBox21 = "" Then Me.TextBox21 = 0
    Me.TextBox21 = Me.TextBox21 - 1
End Sub

二、批量处理多组控件（优化方案） #

如果Frame内有大量SpinButton与TextBox配对，可通过类模块实现批量绑定事件，避免重复代码：

1. 插入类模块，命名为clsSpinButtonHandler，添加以下代码：

Public WithEvents SpinBtn As MSForms.SpinButton
Public LinkedTextBox As MSForms.TextBox

Private Sub SpinBtn_SpinUp()
    If LinkedTextBox = "" Then LinkedTextBox = 0
    LinkedTextBox = LinkedTextBox + 1
End Sub

Private Sub SpinBtn_SpinDown()
    If LinkedTextBox = "" Then LinkedTextBox = 0
    LinkedTextBox = LinkedTextBox - 1
End Sub

2. 在窗体的代码模块中添加初始化代码（假设Frame名称为Frame1）：

Dim SpinHandlers As Collection

Private Sub UserForm_Initialize()
    Set SpinHandlers = New Collection
    Dim ctrl As MSForms.Control
    Dim handler As clsSpinButtonHandler
    
    ' 遍历Frame内控件，绑定配对关系
    For Each ctrl In Me.Frame1.Controls
        If TypeName(ctrl) = "SpinButton" Then
            Set handler = New clsSpinButtonHandler
            Set handler.SpinBtn = ctrl
            ' 根据你的控件命名规则匹配对应的TextBox
            Select Case ctrl.Name
                Case "SpinButton1"
                    Set handler.LinkedTextBox = Me.Frame1.TextBox2
                Case "SpinButton11"
                    Set handler.LinkedTextBox = Me.Frame1.TextBox21
                    ' 可继续添加更多控件配对
            End Select
            SpinHandlers.Add handler
        End If
    Next ctrl
End Sub

补充说明 #

若要在窗体代码模块中编写Frame内控件的事件，过程名称必须遵循Frame名称_控件名称_事件名称的格式，示例：

Private Sub Frame1_SpinButton1_SpinUp()
    If Me.Frame1.TextBox2 = "" Then Me.Frame1.TextBox2 = 0
    Me.Frame1.TextBox2 = Me.Frame1.TextBox2 + 1
End Sub

这种写法不如直接在Frame代码模块中编写简洁，仅作为备选方案。

内容的提问来源于stack exchange，提问作者Michael