VBA userform -添加标签到框架

Question

我在一个大框架里面有六个小框架，我需要创建一个按钮来在大框架里面添加新的小框架，代码如下:

For Each cCont In Me.Controls
If TypeName(cCont) = "Frame" Then
lCount = lCount + 1
End If
Next cCont
If lCount = 6 Then
'384 is the top property of No.6 frame 
'72 is every small frame distance
top = 384 + 72
ElseIf lCount > 6 Then
top = 384 + (72 * (lCount - 5))
End If
Set addBtn = bigFrame.Controls.Add("Forms.Frame.1")
With addBtn
.Height = 66
.Left = 6
.top = top
.Width = 312
.name = "frameName" & lCount + 1
.Caption = "frameName - " & lCount + 1
.Font.Size = 12
End With

所以这是我的问题，我如何在新的小框架中添加一个新的标签?我知道代码应该是这样的:

Set label = bigFrame.frameName.Controls.Add("Forms.Label.1")

添加新小框架后，新小框架的名称应为frameame7。我应该在代码中写什么，以便当按下按钮时将添加一个带标签的小框架。谢谢。

Answer 1

您已经有了对新插入框架的引用，因此您可以:

Dim myLabel As MSForms.Label
Set myLabel = addBtn.Controls.Add("Forms.Label.1", "MyLabel", True)

或直接从用户表单输入:

Set myLabel = Me.Controls("FrameName").Controls.Add("Forms.Label.1", "MyLabel", True)

Answer 2

Set myLabel = Me.Controls("big frame Name").Controls.Add("Forms.Label.1", "MyLabel", True)

这个是工作，试试这个…