View Full Version : یک مثال از حلقه For Each
Hossis
چهارشنبه 29 مهر 1388, 11:37 صبح
برای حلقه مربور یک مثال بزنید ، مثلا اگر بخواهیم همه TextBox های یک فرم را بررسی کرده و یک متن وارد آنها کنیم چطور از این حلقه استفاده می کنیم؟
Mani_rf
چهارشنبه 29 مهر 1388, 17:03 عصر
For Each T As Control In Me.Controls
If TypeName(T) = "TextBox"Then T.Text = "Text Box Found"
Next
alimanam
چهارشنبه 29 مهر 1388, 17:22 عصر
با سلام
این هم تقریباً همون کار رو انجام میده . یا علی
For Each ctl As Control In Me.Controls
If TypeOf ctl Is TextBox Then
ctl.Text = "Hi Vb"
End If
Next
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.