Dynamically Adding Labels to User Form = Blank UserForm

Question

I'm trying to dynamically add buttons to the userform, but the userform just comes up blank. Ive simplified the essence of the code as much as possible for error checking (not that it's helped me)

Sub addLabel()
UserForm2.Show    
Dim theLabel As Label
Dim labelCounter As Integer

For labelCounter = 1 To 3
    Set Label = UserForm2.Controls.Add("Forms.Label.1", "Test" & labelCounter, True)
    With theLabel
        .Caption = "Test" & labelCounter
        .Left = 10
        .Width = 50
        .Top = 10
    End With
End Sub

Is there any way of checking if the buttons have been added but are invisible? Or why they are not being added. Any help greatly appreciated.

brettdj · Accepted Answer · 2014-07-30T23:46:42.940

24

A few things:

You need to show your UserForm as vbModeless - else the code stops on UserForm2.Show
You are creating an object called Label then using With on theLabel

You will then need to increment the position of your three labels to avoid overlap (which I have done using Top).

Sub addLabel()
UserForm2.Show vbModeless
Dim theLabel As Object
Dim labelCounter As Long

For labelCounter = 1 To 3
    Set theLabel = UserForm2.Controls.Add("Forms.Label.1", "Test" & labelCounter, True)
    With theLabel
        .Caption = "Test" & labelCounter
        .Left = 10
        .Width = 50
        .Top = 10 * labelCounter
    End With
Next
End Sub

edited Jul 30 '14 at 23:46

answered May 11 '12 at 03:40

brettdj

54,857
16
114
177

Thankyou very much for the feedback. I copy and pasted your code directly into the UserForm2 module, press f5, the form loads, but is still completely blank. I even opened a brand new work book, repeated the above steps, saved the new workbook and press run and still just a blank userform. Is there potentially a setting that i must change or something external to the code, as your code looks like it does exactly what i wanted it to do, but it doesnt :S Thanks again! – BiGXERO May 11 '12 at 03:57
1

OMG! Of Course! Thankyou so much. This is why i love this site. You are a good person! – BiGXERO May 11 '12 at 04:34

score 0 · Answer 2 · edited May 18 '20 at 00:17

0

After the end with statement, add:

userform1.show

One more correction:

.top = 10*labelcounter+10

edited May 18 '20 at 00:17

Jeremy Caney

7,102
69
48
77

answered May 17 '20 at 20:47

user13563126

1

score -4 · Answer 3 · edited Aug 22 '14 at 08:57

-4

try below code

Set theLabel = UserForm2.Designer.Controls.Add("Forms.Label.1", "Test1", True)

edited Aug 22 '14 at 08:57

chriz

1,339
2
16
32

answered Aug 22 '14 at 08:50

user3967253

1

1

Use of Designer is lazy and dangerous in this instance. It shows a lack of understanding of the Forms Object and how to interact with them – FinancialRadDeveloper Jan 03 '18 at 14:09

Dynamically Adding Labels to User Form = Blank UserForm

3 Answers3

Linked