Tự động thêm nhãn vào biểu mẫu người dùng = Trống UserForm

Question

Tôi đang cố gắng tự động thêm các nút vào biểu mẫu người dùng, nhưng biểu mẫu người dùng chỉ xuất hiện trống. Ive đơn giản bản chất của mã càng nhiều càng tốt để kiểm tra lỗi (không phải là nó đã giúp tôi)

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 

Có cách nào kiểm tra nếu các nút đã được thêm vào nhưng là vô hình? Hoặc tại sao họ không được thêm vào. Bất kỳ trợ giúp đánh giá rất nhiều.

Answer 1

Một vài điều:

1. Bạn cần phải hiển thị UserForm của bạn như vbModeless - khác mã dừng trên UserForm2.Show
2. Bạn đang tạo một đối tượng gọi Label sau đó sử dụng With trên theLabel

3. Bạn sẽ sau đó cần phải tăng vị trí của ba nhãn của bạn để tránh trùng lặp (mà tôi đã thực hiện bằng cách sử dụng 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

thử mã dưới đây

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