label click ile ilgili bir soru

[vagatoga]

merhaba arkadaşlar, üstadlar,
benim sorum şu şekilde bir userform üzerinde yaklaşık 50 adet labelim var..bunların herhangi birinin üzerine tıkladığımda visible=false olmasını ve birkaç değişik kod daha yazmayı istiyorum..
ama herbiri için ayrı ayrı
Private Sub Label1_Click() .... end sub
Private Sub Label2_Click() .... end sub

gibi olay yazmak hem çok uzun sürecek hemde programcılık mantığına aykırı gibi geliyor.. bunu nasıl çözebilirim, yardım edermisiniz??

 

[Levent Menteşoğlu]

Bu tür işlemler için class module kullanmak kodlarda ciddi tasarrufa neden olacaktır. Kesin cevap için dosyanızı eklemenizi öneririm.

 

[vagatoga]

çok teşekkür ederim sayın levent bey, örnek bir dosya ekledim..bakabilir misiniz?

 

[Levent Menteşoğlu]

Ekli dosyayı inceleyin.

 

[vagatoga]

çok teşekkür ederim..istediğim gibi olmuş..
ama
Replace(lbl.Name, "Label", "")
komutunu tam anlamadım, nasıl kullanılıyor..?

 

[Levent Menteşoğlu]

çok teşekkür ederim..istediğim gibi olmuş..
ama
Replace(lbl.Name, "Label", "")
komutunu tam anlamadım, nasıl kullanılıyor..?

Rica ederim.

Replace(lbl.Name, "Label", "") satırını labelin ismindeki sayıyı elde etmek için kullanmıştım. Elde edilen bu sayı hücrenin satır nosu yerine kullanılmaktadır.

 

[vagatoga]

anladım tekrar teşekkür ederim..klavyeniz dert görmesin