动态添加标签到用户窗体=空白用户窗体

Question

我正在尝试向userform动态添加按钮,但userform只是空白.我尽可能地简化了代码的本质,以便进行错误检查(不是它对我有帮助)

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

有没有办法检查按钮是否已添加但是不可见？或者为什么他们没有被添加.任何帮助非常感谢.

Answer 1

一些东西:

1. 您需要将UserForm显示为vbModeless- 否则代码将停止UserForm2.Show
2. 您正在Label使用Withon 创建一个名为then 的对象theLabel

3. 然后,您需要增加三个标签的位置以避免重叠(我已经使用过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