여러 단추에 공통 절차를 할당하는 방법은 무엇입니까?

Question

얼마 전에 여러 단추에 동일한 절차를 지정하는 샘플 코드가 있습니다. 이 같은
뭔가 :

For Eeach buttton in Form1 
If button is clicked 
MsgBox button.Caption. 

그러나 지금은이 코드를 찾을 수 없습니다.
인터넷 검색 나는 내가 필요한 것을 발견했다.
클래스 모듈을 삽입해야한다는 것을 기억합니다.
누군가 내게 링크 또는 간단한 예를 들려 줄 수 있습니까?

Answer 1

새로운 클래스 모듈을 삽입하고 이름을 clListener (그냥 내 마음에 들었다). 거기
코드 : 사용자 정의 폼 모듈에서

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