VBA动态添加事件

发布网友发布时间：2023-09-14 09:07

共2个回答

热心网友时间：2023-09-14 11:39

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

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

注释掉就可以运行了。

追问可是我还需要为每个标签添加事件啊

热心网友时间：2023-09-14 11:40

你要把Dim aaa As abc这一句移动到模块里面，并且改为Public aaa As New abc

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com