V中类模块抢答:为按钮批量添加click事件

61866985

................................

XMergeD

好贴

good 帖子

jnwysh

学习学习。

free_light

点击按钮没有出现信息提示。谢谢！
Class MyCmdBtn
Public WithEvents cmdbtn As MSForms.CommandButton

Private Sub cmdbtn_Click()
    MsgBox cmdbtn.Caption
End Sub

UserForm.Initialize
private cmdclass(1 to 3) As New MyCmdBtn  '语句要放在这里。
Private Sub UserForm_Initialize()

  Dim cmds(1 To 3) As MSForms.CommandButton
  Dim cmdclass(1 To 3) As New MyCmdBtn   ‘低级错误，这过程运行完，这个数组和类所占内存释放。

  For i = 1 To 3
    Set cmds(i) = Me.Controls.Add("Forms.CommandButton.1", "CommandButton" & i, True)
    cmds(i).Caption = "CommandButton" & i
    cmds(i).Top = (i - 1) * 30 + 2
    cmds(i).Left = 10
    Set cmdclass(i).cmdbtn = cmds(i)
  Next
End Sub

Wrs896

好好学学

hwhwenha01

有没有实例和QQ啊！！！！！！！！！！！

zjdh

kankan