پر کردن چند textbox با نام مشابه در حلقه

[neginesabzesade]

توی web formچندتا text box با نامهای شبیه به هم دارم که عددی که انتهاشه با هم فرق داره حالا می خوام با یه حلقه اونارو پر کنم اما نمی دونم چه جوری صداشون کنم.
در واقع کد معادل اینو می خوام:افسرده:

For i= 1 To 5

textboxi.text=....

ببخشید اگه سوالم فاقد بار علمیه اما سواله خوب:بامزه:

[Sub Zero]

به همین سادگی :

For i as int32=1 to 5
dim txt as textbox=FindControl("Textbox" & i)
txt.text= مقدار
Next

[eyes_shut_number1]

جسارتا تست کردم نشد
ّFindControl رو پیدا نکرد

PrivateSubForm1_Load(ByValsenderAsSystem.Object, ByValeAsSystem.EventArgs) HandlesMyBase.Load
ForEachaAsTextBoxInMe.Controls
a.Text = "value"
Next
EndSub

[Sub Zero]

جسارتا تست کردم نشد
ّFindControl رو پیدا نکرد

جواب :

توی web formچندتا text box با نامهای شبیه به هم دارم....
متد FindControl فقط توی وب فرم استفاده میشه . توی Windows Application باید از روش زیر استفاده کنید :

Dim txt() As TextBox = Me.Controls.Find("TextBox" & i, True)
در ضمن برای این مورد هم کد شما باید به صورت زیر اصلاح بشه والا ممکنه Error بده .:چشمک:

For Each a As Control In Me.Controls
If TypeOf a Is TextBox Then
a.Text = Value
End If
Next

[eyes_shut_number1]

اووووووووووووووووووووه!
شرمنده SUBZERO جان
اصلا اون Web Form رو ندیدم
واقعا شرمنده دوست من