aktif buton ismini label a yadırmak

[aptillah]

Merhabalar,

userform1 üzerinde 10 buton var ve onlara tıkladığımızda userform2 açılıyor.
Yapmaya çalıştığım şey userfom2 üzerindeki label3 e userfom1 de hangi butona bastıysam onun isminin yazması.

 

[Ömer]

Merhaba,

Userform1:

Dim buton() As New Class1
Private Sub UserForm_Initialize()

    Dim a As Integer, Obj As Control

    For Each Obj In Me.Controls
        If TypeOf Obj Is MSForms.CommandButton Then
            a = a + 1
            ReDim Preserve buton(1 To a)
            Set buton(a).buton = Obj
        End If
    Next Obj
    
    Set Obj = Nothing

End Sub

Class modul oluşturun:

Public WithEvents buton As MSForms.CommandButton
Private Sub buton_Click()

    UserForm2.Label3.Caption = buton.Name
    UserForm2.Show
   
End Sub

Bu şekilde, her CommandButton' nun clik olayına form aç komutu koymanızada gerek kalmaz.

.

 

[aptillah]

saolun yardımınız için teşekkürler