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-30 23:46:42Z

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, 2014 at 23:46

answered May 11, 2012 at 3:40

brettdj

55.9k16 gold badges120 silver badges178 bronze badges

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

2 Comments

BiGXERO Over a year ago

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 Over a year ago

OMG! Of Course! Thankyou so much. This is why i love this site. You are a good person!

Jeremy Caney · Accepted Answer · 2020-05-18 00:17:57Z

0

After the end with statement, add:

userform1.show

One more correction:

.top = 10*labelcounter+10

edited May 18, 2020 at 0:17

Jeremy Caney

7,798115 gold badges58 silver badges87 bronze badges

answered May 17, 2020 at 20:47

user13563126

1

Comments

chriz · Accepted Answer · 2014-08-22 08:57:12Z

-4

try below code

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

edited Aug 22, 2014 at 8:57

chriz

1,3453 gold badges16 silver badges33 bronze badges

answered Aug 22, 2014 at 8:50

user3967253

1

1 Comment

FinancialRadDeveloper Over a year ago

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

Collectives™ on Stack Overflow

Dynamically Adding Labels to User Form = Blank UserForm

3 Answers 3

2 Comments

Comments

1 Comment

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

3 Answers 3

2 Comments

Comments

1 Comment

Your Answer

Sign up or log in

Post as a guest

Linked

Related