Dynamiczne dodawanie etykiet do formularza użytkownika = pusty UserForm

Question

Próbuję dynamicznie dodawać przyciski do formularza użytkownika, ale formularz użytkownika jest pusty. Ive uprościć istotę kodu jak najwięcej dla sprawdzania błędów (nie, że to pomogło mi)

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 

jest jakiś sposób na sprawdzenie, czy przyciski zostały dodane, ale są niewidoczne? Lub dlaczego nie są dodawane. Każda pomoc bardzo doceniona.

Answer 1

kilka rzeczy:

1. Trzeba pokazać UserForm jak vbModeless - inny kod zatrzymuje się na UserForm2.Show
2. Tworzysz obiekt o nazwie Label następnie korzystając With na theLabel

3. Będziesz następnie trzeba zwiększyć pozycję trzech etykiet, aby uniknąć nakładania się (co zrobiłem przy użyciu 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 
   

Answer 2

try poniżej kod

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