사용자 양식 = 빈 사용자 양식에 동적으로 레이블 추가

사용자 양식 = 빈 사용자 양식에 동적으로 레이블 추가

사용자 양식에 동적으로 단추를 추가하려고 하는데 사용자 양식이 공백으로 나타납니다.오류 확인을 위해 코드의 본질을 최대한 단순화했습니다(도움이 되지는 않았습니다).

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

버튼이 추가되었지만 보이지 않는지 확인할 수 있는 방법이 있습니까?또는 그것들이 추가되지 않는 이유.어떤 도움이든 대단히 감사합니다.

몇 가지 사항:

1. 사용자 양식을 다음과 같이 표시해야 합니다.vbModeless그렇지 않으면 코드가 멈춥니다.UserForm2.Show
2. 다음과 같은 개체를 만들고 있습니다.Label그 다음에 사용With에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
   

그 후에end with문, 추가:

userform1.show

한 번 더 수정:

.top = 10*labelcounter+10

비밀리에 해 보다.

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

언급URL : https://stackoverflow.com/questions/10544456/dynamically-adding-labels-to-user-form-blank-userform