dynamically add checkboxes to frame on form vba

Question

how can you add multiple checkboxes to a userForm Frame? This seems like a trivial thing to do, but my code is only generating a checkbox for last item in array.

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

Any suggestions here much appreciated. Thanks in advance.

@Rdster "Next " + variable serves just for retaining value of i outside the scope of loop. — holmicz
– holmicz, Commented Dec 6, 2016 at 17:34
@holmicz - It has nothing to do with scope. There's no function difference between Next and Next i at all. It's purely a matter of preference and coding style. — Comintern
– Comintern, Commented Dec 6, 2016 at 17:43
@Rdster You are right, I don't know where I got it from. :-) — holmicz
– holmicz, Commented Dec 6, 2016 at 17:47
Except help noobs keep their code easier to follow and read. — Rdster
– Rdster, Commented Dec 6, 2016 at 17:58

Comintern · Accepted Answer · 2016-12-06 17:41:05Z

1

They're all being created just fine, but the reason you can only see the last one is that they're all stacking on top of each other in the default position when they're added. You need to position them with the .Top and .Left properties:

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

answered Dec 6, 2016 at 17:41

Comintern

22.3k6 gold badges36 silver badges83 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

holmicz · Accepted Answer · 2016-12-06 17:32:29Z

0

I think the problem is, that you are adding components on the same position, therefore it is overlapping and you are seeing only last one, isn't it? You need to adjust left and top coordinate, if I remember correctly.

answered Dec 6, 2016 at 17:32

holmicz

5774 silver badges16 bronze badges

Comments

Michael · Accepted Answer · 2016-12-06 18:37:16Z

0

Thanks all, that seemed to do the trick! I never figured this cont

Revised code snippet below,

      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

answered Dec 6, 2016 at 18:37

Michael

791 gold badge5 silver badges15 bronze badges

Collectives™ on Stack Overflow

dynamically add checkboxes to frame on form vba

3 Answers 3

Comments

Comments

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

3 Answers 3

Comments

Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Related