یک مثال از حلقه For Each

[Hossis]

برای حلقه مربور یک مثال بزنید ، مثلا اگر بخواهیم همه TextBox های یک فرم را بررسی کرده و یک متن وارد آنها کنیم چطور از این حلقه استفاده می کنیم؟

[Mani_rf]

For Each T As Control In Me.Controls
If TypeName(T) = "TextBox"Then T.Text = "Text Box Found"
Next

[alimanam]

با سلام

این هم تقریباً همون کار رو انجام میده . یا علی
For Each ctl As Control In Me.Controls
If TypeOf ctl Is TextBox Then
ctl.Text = "Hi Vb"
End If
Next