VBA动态添加事件

动态添加标签，根本不用类代码。

Private Sub CommandButton1_Click()

Dim i

Dim aaa As Class1

Dim myLabel As MSForms.Label

For i = 1 To 5

    Set myLabel = UserForm1.Controls.Add("Forms.Label.1", "b" & i)

    With myLabel

        .Caption = "Label: a" & i

        .Top = 10 * i

        .Left = 10

        .Height = 20

        .Width = 60

    End With

    'aaa.Init myLabel

Next

End Sub

注释掉就可以运行了。

vb和vba还是有区别的，尽管他们的语法大致相同。

1应该是控件编号，如果是手动画控件，第一个的编号默认为1

至于为添加的控件添加代码，百度有很多

’将程式码复制到Module中,然後执行 GetOption程序

Sub GetOption()

Dim TempForm 'As VBComponent

Dim NewOptionButton As MSForms.OptionButton

Dim LeftPos As Integer

Dim X As Integer, i As Integer, TopPos As Integer

' 隐藏VBE视窗预防萤幕更新

Application.VBE.MainWindow.Visible = False

' 动态新增UserForm

Set TempForm = ActiveWorkbook.VBProject.VBComponents.Add(3)

' 新增 OptionButtons

LeftPos = 4

k = 1

TopPos = 5

For i = 1 To 3

LeftPos = 4

For j = 1 To 10

'动态新增OptionButton控件

Set NewOptionButton = _

TempForm.Designer.Controls.Add("forms.OptionButton.1")

With NewOptionButton

.Width = 60

.Caption = k & "℃"

.Height = 15

.Left = LeftPos

.Top = TopPos

.Tag = k & "℃"

.AutoSize = True

End With

LeftPos = LeftPos + 30

k = k + 1

Next j

TopPos = i * 20 + 5

Next i

'【写入Click 事件】

For i = 1 To 30

With TempForm.CodeModule

X = .CountOfLines

.InsertLines X + 1, "Private Sub OptionButton" & i & "_Click()"

.InsertLines X + 2, " Cells(8, 8) = Me.ActiveControl.Tag"

.InsertLines X + 3, "End Sub"

End With

Next i

With TempForm

.Properties("Caption") = "温度选项"

.Properties("Width") = LeftPos + 20

.Properties("Height") = TopPos + 20

.Properties("Left") = 160

.Properties("Top") = 150

End With

'显示窗体

VBA.UserForms.Add(TempForm.Name).Show

'关闭後一橱窗体

ActiveWorkbook.VBProject.VBComponents.Remove VBComponent:=TempForm

End Sub

设数据在A1单元格

Private Sub UserForm_Initialize()

If IsNumeric(Range("A1")) Then

For i = 1 To Range("A1")

Set tctl = UserForm1.Controls.Add("Forms.CommandButton.1")

With tctl

.Left = 10

.Top = 10 + (i - 1) * 30

.Width = 40

.Height = 25

.Caption = "按钮" &i

End With

Next

UserForm1.Height = CInt(Range("A1")) * 30 + 40

End If

End Sub

---