Textboxi_click()

Katılım
11 Aralık 2006
Mesajlar
5
Excel Vers. ve Dili
xp ingilizce
Merhaba;
Benim sorunum şu,program içinde randon olarak 10 larca textbox oluşturuyorum,sayısı belirli kriterlere göre değişiyor.Ve ben bu textbox lardan her birine tıklanıldığında bir fonksiyonun çalışmasını istiyorum.Normalde ismi sabit bir item olsa itemismi_Click() şeklinde bir fonksiyon tanımlayarak yapabiliyoruz biliyorum ama boyle isimleri belli olmayan (belli olmayan derken textbox1,textbox2,textbox3 diye gidiyor ama isim,soyad gibi sabit bir degeri yok onu kastediyorum) durumlarda ne yapılabilir?Hepsi icin ayri ayri isim_Click() yapmak imkansız görünüyor.Simdiden cok saolun...
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Bu istediğinizi class modül ile çözmek mümkün. Bir örnek dosya eklerseniz yardımcı olmaya çalışırız.
 
Katılım
11 Aralık 2006
Mesajlar
5
Excel Vers. ve Dili
xp ingilizce
kodun ilgili kısmını gönderiyorum..

Private Sub ADDABtb(CurRow As Integer) 'Adds a TextBox
Set tbAcB = UserForm1.Frame1.Controls.Add("forms.textbox.1")
With tbAcB
.Left = 245
.top = CurRow
.Height = 15
.Width = 160
.Name = "tbAcB" & Rcnt
End With
FrameChildren.Add tbAcB
End Sub

görüldüğü gibi bu sub ismi Rcnt gibi bir sayaca bağlı olmak üzere mevcut bir frame icinde textboxlar oluşturuyor.bunlardan herhangi biribi tıklandığında bir fonksiyonun çalışmasını nasıl sağlayabilirim?Şimdiden teşşekkürler...
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Bu şekilde yanıt vermek zor bence örnek bir dosya ekleyin.
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Buna benzer bir konu için daha önce hazırlamış olduğum bir dosya mevcut, faydası olabilir düşüncesiyle ekliyorum.
 
Katılım
11 Aralık 2006
Mesajlar
5
Excel Vers. ve Dili
xp ingilizce
teşekkür ederim aradığım buydu....
 
Üst