动态将复选框添加到窗体VBA上的框架

Question

如何将多个复选框添加到userForm框架？ 这似乎是一件微不足道的事情，但是我的代码只为数组中的最后一项生成了一个复选框。

Private Sub btnGenerate_Click()
Dim i As Long
Dim lic As licence
Dim temp As Variant
Dim desc As String
Dim chkbox As MSForms.CheckBox
Dim str As String

For Each lic In licenceCollection
    temp = lic.getClause
Next lic

For i = LBound(temp) To UBound(temp)
    'Debug.Print temp(i)
    desc = "Future-Sampling " & i
    'Utility.createCheckBoxes temp(i), desc
    Set chkbox = licenceForm.resultFrame.Controls.Add("Forms.Checkbox.1", desc)
    chkbox.Caption = temp(i)
    chkbox.Value = desc
    chkbox.Width = "450"
    chkbox.Height = "50"
    chkbox.WordWrap = True
    chkbox.Value = False
    chkbox.GroupName = "Future Sampling"
Next
End Sub  

任何建议在这里表示赞赏。 提前致谢。

Answer 1

它们的创建都很好，但是您只能看到最后一个的原因是，它们在添加时都堆叠在默认位置上。 您需要使用.Top和.Left属性定位它们：

Dim xPos As Long
For i = LBound(temp) To UBound(temp)
    desc = "Future-Sampling " & i
    Set chkbox = Me.Controls.Add("Forms.Checkbox.1", desc)
    With chkbox
        .Top = xPos
        .Caption = temp(i)
        .Value = desc
        .Width = 450
        .Height = 24
        .WordWrap = True
        .Value = False
        .GroupName = "Future Sampling"
        xPos = xPos + 24
    End With
Next

Answer 2

我认为问题是，您要在同一位置添加组件，因此它们是重叠的，并且您只能看到最后一个，不是吗？ 如果我没记错的话，您需要调整left和top坐标。

Answer 3

谢谢大家，这似乎可以解决问题！ 我从来没有想过

下面是修改后的代码段，

      For i = LBound(temp) To UBound(temp)
                desc = "Future-Sampling " & i
                Set chkbox = Me.resultFrame.Controls.Add("Forms.Checkbox.1", desc)
                With chkbox
                    .Top = xPos
                    .Caption = temp(i)
                    .Value = desc
                    .Width = 450
                    .Height = 24
                    .WordWrap = True
                    .Value = False
                    .GroupName = "Future Sampling"
                    xPos = xPos + 24
                End With


        Next i