在运行时添加多个用户窗体控件

Question

我创建了一个带有静态标签的用户表单，以指示用户检查某些部件号。 该表单还将具有一个静态按钮来提交输入。 但是，我需要在运行时创建复选框，因为无法确定每次显示表单时都会有多少个复选框。 最多会有十二个框，但是大多数时候只需要一个或两个框，我宁愿只显示需要的框，而不是空白的复选框。 我做了一个for循环来添加盒子。

目前，我可以在表单中添加一个复选框，但是在我正在使用的记录中，应该有三个。 我在网上看到的有关动态添加控件的所有内容主要都涉及向控件添加事件，但是我不需要事件，仅需要控件。 谁能看到我需要在代码中添加/更改的内容：

Private WithEvents chkbox As MSForms.CheckBox

Private Sub UserForm_Activate()
For i = 1 To 12
    If PNArray(i) Like "A*" And ChangeArray(i) = "New Part Number:" Then
        With Me.Controls
            Set chkbox = .Add("Forms.checkbox.1", "chkbox" & i, True)
            With chkbox
                .Width = 108
                .Height = 18
                .Top = 30 * i
                .Left = 54
                .Caption = PNArray(i)
            End With
        End With
    End If
Next i
End Sub

谢谢

Answer 1

经过研究，问题是.Top=30*i 。 当您希望所有复选框都具有相同的距离时，总是将其乘以数组的索引。 您需要另一个变量来执行此操作。 尝试这样：

Dim ZZ As Byte ' count of checkboxes
ZZ = 0

For i = 1 To 12
    If PNArray(i) Like "A*" And ChangeArray(i) = "New Part Number:" Then
        ZZ = ZZ + 1 'we increase count of checkboxes
        With Me.Controls
            Set chkbox = .Add("Forms.checkbox.1", "chkbox" & i, True)
            With chkbox
                .Width = 108
                .Height = 18
                .Top = 30 * ZZ 'we position the chekbox according to its rank (first one, second one, third one, and so on).
                .Left = 54
                .Caption = PNArray(i)
            End With
        End With
    End If
Next i

使用此代码，有多少个复选框都没有关系。 它将以“讲台”样式添加到正确的位置