for each

[siana_k1980]

من میخوام با for each تمام textbox های روی فرمم رو enable آنها رو false کنم ولی با for each مشکل دارم

[Mamad2003]

TextBox های شما باید همه از یک Collection باشن یعنی مثلا Textbox1 رو چند بار کپی کنی و تکست باکس هایی بسازی با یک اسم ولی Index های متفاوت . کد زیر اون وقت اینکار رو برات انجام میده :

کد:

For Each txt In Text1
    txt.Enabled = False
Next

[ajlajlajl]

بدون Index هم ميشه:
Dim t As Object
For Each t In Controls
If TypeOf t Is TextBox Then t.Enabled = False
Next

[Payman62]

سلام.
کد ممد این برتری رو داره که حلقه کمتر میچرخه و سرعت برنامه میره بالاتر. کد ajlajlajl هم این برتری رو داره که نیازی نیست تکس باکس ها از یه collection باشن. البته برای مثلا 50 تا کنترل روی فرم قضیه افزایش سرعت محسوس نیست.