textbox & label 'e numara eklemek

[musculus]

8 adet textbox'a ya da 16 adet Label'e numara nasıl ekliyebilirim.
Dosyamda çok sayıda textbox ve label var.Ama ben ilk 8 textboxu ve ilk 16 adet label ile işlem yapmak istiyorum.Döngü kurdum fakat hata verdi

for a=2 to 8
textbox&a.value=""
next

me.control ile dosyamdaki tüm textboxları siliyor.Ya da tek tek yazmak zorundayım.Yukarıdaki kodların hatasını nasıl düzeltebilirim ?

 

[dEdE]

Merhaba,
Birde bunu deneyin

Sub temizle()
    For a = 2 To 8
    Me.Controls("TextBox" & a)  = ""
    Next
End Sub

 

[mesuttasar]

Sayın dEdE; Me.Controls ne anlama geliyor ? Nesneleri tanımlamak içinmi kullanıyoruz bunu?

 

[Orion1]

Textboxların ve labellerin isimleri ardışık gidiyor ve 1den başlıyorsa:

for i = 1 to 8
controls("TextBox" & i).text=i
next i
for i = 1 to 16
controls("Label" & i).caption=i
next i

 

[Ayhan Ercan]

Sayın dEdE; Me.Controls ne anlama geliyor ? Nesneleri tanımlamak içinmi kullanıyoruz bunu?

Merhaba

Me.Controls = "benim kontrollerim" demek.

kod içerisindeki anlamıda buna benzerdir.

Biraz esprili bir şekilde düşünecek olursak burada Userformun konuşarak bunu söylediğini varsayın.

O zaman ne oluyor? Userform diyorki:
"Benim kontrol nesnelerim"
Parantez içerisindekiler de kontrollerin hangileri olduğudur.
Yani;

Me.Controls("Textbox") demek: "Benim kontrol nesnelerimden Textbox olanlar"
"Me" yi kullanmadan da bunu halledebiliriz.
Controls("Textbox") gibi..

Mevcut kullanılan userform için me. kullanabilirsiniz. diğer bir userformun kontrol nesnelerini kullanacaksanız bu sefer:

UserForm2.Controls("Textbox") gibi kullanabilirsiniz.
Umarım anlatabilmişimdir...

 

[dEdE]

Sayın dEdE; Me.Controls ne anlama geliyor ? Nesneleri tanımlamak içinmi kullanıyoruz bunu?

Merhaba,
Sayın Ercan gayet güzel anlatmış. Bunun üzerine söyleyecek bir şey yok.
Me. kullanımı, birden fazla UserForm kullanmaktan kaynaklan alışkanlık.
Saygılar.

 

[mesuttasar]

Bilgilendirdiğiniz için çok teşekkürler.Sağolun.