آرایه برای کنترل ها

[spanishtrain]

با سلام خدمت دوستان
آقا من مخوام تو حالت Run Time متن درون یه تعدادی Textbox رو که قبلا تو حالت Runtime توسط User برنامه ایجاد شدن و نام و تعداد textbox ها مشخص نیست رو خالی کنم
به زبون ساده می خوام بگم "" =هر چی textbox لطفا کمک کنید

[ghafoori]

دوست عزیز با این کد

Dim ctrl As Control
For Each ctrl In Me.Controls
If ctrl.GetType Is GetType(TextBox) Then
ctrl.Text = ""
End If
Next

[saeed_rezaei]

این کد کاملا درست هست اما بایستی برای مواقعی که یک جعبه متن به صورت مستقیم توی فرم قرار نگرفته یه کمی کد رو بسطش داد.

[omidmehraban]

Dim ctrl As Control
For Each ctrl In Me.Controls
If ctrl.GetType Is GetType(TextBox) Then
ctrl.Text = ""
End If
Next

روش بالا کاملا درست هست، این روش هم فقط یک کلمه کلیدی(TypeOf) معرفی می کند:


For Each ctrl As Control In Me.Controls
If TypeOf ctrl Is TextBox Then
CType(ctrl, TextBox).Text = ""
End If
Next