本文介绍了如何为多个按钮分配通用步骤?的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!
问题描述
前段时间,我有一个示例代码为多个按钮分配相同的过程.像这样:
Some time ago I have a sample code to assign the same procedure for multiple buttons. Something like this:
For Eeach buttton in Form1 If button is clicked MsgBox button.Caption.但是我现在找不到此代码.谷歌搜索,我找不到我所需要的东西.我只记得我需要插入一个类模块.有人可以给我一个链接或一个简短的例子.
But I can't find this code now. Googling I cant found egzactly what I need. I just remember that I need to insert a class module. Could someone give me a link or a short example.
推荐答案插入一个新的类模块,并将其命名为 clListener (我才想到).其中的代码:
Insert a new Class Module and name it clListener (that just came to my mind). Code in there:
Public WithEvents ct As MSForms.CommandButton Public Sub ct_Click() MsgBox ct.Name & " clicked!" End Sub在用户窗体模块中:
Private listenerCollection As New Collection Private Sub UserForm_Initialize() Dim ctItem Dim listener As clListener For Each ctItem In Me.Controls If TypeName(ctItem) = "CommandButton" Then Set listener = New clListener Set listener.ct = ctItem listenerCollection.Add listener End If Next End Sub更多推荐
如何为多个按钮分配通用步骤?
发布评论