Eklenen Nesneye Kod Yazmak

[kerem6521]

merhaba arkadaşlar. Makro ile userform umun initialize kısmına label, textbox, buton vs ekledim. yani 20 tane textbox controls.add komutuyla ekleniyor ama onca butona herbirine ayrı ayrı vermek istediğim görevi yani kodlarımı nasıl yazacağım? sonuçta userform çalışmadan üzerinde nesne yok yazayım o kodları. şimdiden teşekkür ederim.

[islakates]

Merhaba, ne yapmak istiyorsun, karmaşık bir işlem gibi bahsediyorsun.
ReDim TextBoxes(1 To 20)

For düşünceniz = 1 To 20
Set TextBoxes(düşünceniz ) = Me.Controls.Add("Forms.TextBox.1", , True)
With TextBoxes(düşünceniz )
.Left = 10
.Top = 10 + (düşünceniz - 1) * 30
.Width = 100
.Height = 20
.Tag = düşünceniz
AddHandler TextBoxes(düşünceniz ), "Exit", "TextBox_Exit"
End With
Next düşünceniz
End Sub
Rem şeklinde olacakmış gibi hayal ettim, siz nasıl bir şey düşündünüz.
' Çok karamsarlık içinde olmayın

[kerem6521]

hocam controls.add komutuyla 20 adet buton ekledim. hangi butona basarsam bana o butonun adını msgbox olarak yazsın istiyorum kısacası bukadar.

[islakates]

Private Sub CommandButton_Click()
MsgBox "Tıklanan butonun adı: " & Me.ActiveControl.Name
End Sub

Sub ADD BUTONLARI EKLEDİĞİNİZ YERE()
.OnAction = "ButtonClickHandler"
uygun konuma ekleyin