تغییر property چند کنترل در حلقه؟

[padidar]

سلام
من 10 تا textbox به نام های :
textbox1
textbox2
textbox3
textbox4
.
.
.
textbox10
و می خوام به کمک یک حلقه مثلا مقدار text اون ها را خالی کنم. برای این کار کد زیر به فکرم رسید اما متاسفانه این روش جواب نمیده، از دوستان اگه کسی بتونه راهنمایی کنه ممنون می شم.

for i as integer = 0 to 10
textbox(i).text= ""
next

[samispeed]

شما می توانید از روش زیر استفاده کنید



Dim ctl As Control
For Each ctl In Me.Controls
If ctl.GetType() Is GetType(TextBox) Then
ctl.ResetText()
End If
Next

[padidar]

از راهنمای شما ممنون
قابل ذکره من روش فوق را از قبل می دونستم. با انجام این کار دستور روی تمام textbox های من اعمال میشه اما من می خوام روی موارد خاصی این دستور اعمال شه به کد زیر دقت کنید، این دستور داره کار میکنه اما اصلا کد قشنگی نیست فکر می کنم راه کوتاهتری هم برای این مثال وجود داشته باشه:


If (CType(Settings("NoOfColumns"), String) = "1") Then
Me.GridView1.Columns(1).Visible = True
Me.GridView1.Columns(2).Visible = False
Me.GridView1.Columns(3).Visible = False
Me.GridView1.Columns(4).Visible = False
Me.GridView1.Columns(5).Visible = False
Me.GridView1.Columns(6).Visible = False
Me.GridView1.Columns(7).Visible = False
Me.GridView1.Columns(8).Visible = False
Me.GridView1.Columns(9).Visible = False
Me.GridView1.Columns(10).Visible = False
ElseIf (CType(Settings("NoOfColumns"), String) = "2") Then
Me.GridView1.Columns(1).Visible = True
Me.GridView1.Columns(2).Visible = True
Me.GridView1.Columns(3).Visible = False
Me.GridView1.Columns(4).Visible = False
Me.GridView1.Columns(5).Visible = False
Me.GridView1.Columns(6).Visible = False
Me.GridView1.Columns(7).Visible = False
Me.GridView1.Columns(8).Visible = False
Me.GridView1.Columns(9).Visible = False
Me.GridView1.Columns(10).Visible = False
ElseIf (CType(Settings("NoOfColumns"), String) = "3") Then
Me.GridView1.Columns(1).Visible = True
Me.GridView1.Columns(2).Visible = True
Me.GridView1.Columns(3).Visible = True
Me.GridView1.Columns(4).Visible = False
Me.GridView1.Columns(5).Visible = False
Me.GridView1.Columns(6).Visible = False
Me.GridView1.Columns(7).Visible = False
Me.GridView1.Columns(8).Visible = False
Me.GridView1.Columns(9).Visible = False
Me.GridView1.Columns(10).Visible = False
ElseIf (CType(Settings("NoOfColumns"), String) = "4") Then
Me.GridView1.Columns(1).Visible = True
Me.GridView1.Columns(2).Visible = True
Me.GridView1.Columns(3).Visible = True
Me.GridView1.Columns(4).Visible = True
Me.GridView1.Columns(5).Visible = False
Me.GridView1.Columns(6).Visible = False
Me.GridView1.Columns(7).Visible = False
Me.GridView1.Columns(8).Visible = False
Me.GridView1.Columns(9).Visible = False
Me.GridView1.Columns(10).Visible = False
ElseIf (CType(Settings("NoOfColumns"), String) = "5") Then
Me.GridView1.Columns(1).Visible = True
Me.GridView1.Columns(2).Visible = True
Me.GridView1.Columns(3).Visible = True
Me.GridView1.Columns(4).Visible = True
Me.GridView1.Columns(5).Visible = True
Me.GridView1.Columns(6).Visible = False
Me.GridView1.Columns(7).Visible = False
Me.GridView1.Columns(8).Visible = False
Me.GridView1.Columns(9).Visible = False
Me.GridView1.Columns(10).Visible = False
ElseIf (CType(Settings("NoOfColumns"), String) = "6") Then
Me.GridView1.Columns(1).Visible = True
Me.GridView1.Columns(2).Visible = True
Me.GridView1.Columns(3).Visible = True
Me.GridView1.Columns(4).Visible = True
Me.GridView1.Columns(5).Visible = True
Me.GridView1.Columns(6).Visible = True
Me.GridView1.Columns(7).Visible = False
Me.GridView1.Columns(8).Visible = False
Me.GridView1.Columns(9).Visible = False
Me.GridView1.Columns(10).Visible = False
ElseIf (CType(Settings("NoOfColumns"), String) = "7") Then
Me.GridView1.Columns(1).Visible = True
Me.GridView1.Columns(2).Visible = True
Me.GridView1.Columns(3).Visible = True
Me.GridView1.Columns(4).Visible = True
Me.GridView1.Columns(5).Visible = True
Me.GridView1.Columns(6).Visible = True
Me.GridView1.Columns(7).Visible = True
Me.GridView1.Columns(8).Visible = False
Me.GridView1.Columns(9).Visible = False
Me.GridView1.Columns(10).Visible = False
ElseIf (CType(Settings("NoOfColumns"), String) = "8") Then
Me.GridView1.Columns(1).Visible = True
Me.GridView1.Columns(2).Visible = True
Me.GridView1.Columns(3).Visible = True
Me.GridView1.Columns(4).Visible = True
Me.GridView1.Columns(5).Visible = True
Me.GridView1.Columns(6).Visible = True
Me.GridView1.Columns(7).Visible = True
Me.GridView1.Columns(8).Visible = True
Me.GridView1.Columns(9).Visible = False
Me.GridView1.Columns(10).Visible = False
ElseIf (CType(Settings("NoOfColumns"), String) = "9") Then
Me.GridView1.Columns(1).Visible = True
Me.GridView1.Columns(2).Visible = True
Me.GridView1.Columns(3).Visible = True
Me.GridView1.Columns(4).Visible = True
Me.GridView1.Columns(5).Visible = True
Me.GridView1.Columns(6).Visible = True
Me.GridView1.Columns(7).Visible = True
Me.GridView1.Columns(8).Visible = True
Me.GridView1.Columns(9).Visible = True
Me.GridView1.Columns(10).Visible = False
ElseIf (CType(Settings("NoOfColumns"), String) = "10") Then
Me.GridView1.Columns(1).Visible = True
Me.GridView1.Columns(2).Visible = True
Me.GridView1.Columns(3).Visible = True
Me.GridView1.Columns(4).Visible = True
Me.GridView1.Columns(5).Visible = True
Me.GridView1.Columns(6).Visible = True
Me.GridView1.Columns(7).Visible = True
Me.GridView1.Columns(8).Visible = True
Me.GridView1.Columns(9).Visible = True
Me.GridView1.Columns(10).Visible = True
End If

[amirsajjadi]

با سلام
راه کوتاهترش اینه :


Dim a As Integer = CType(Settings("NoOfColumns"), Integer)
If a >= 1 AndAlso a <= 10 Then
For i As Integer = 1 To 10
Me.GridView1.Columns(i).Visible = i <= a
Next
End If

[padidar]

کار شما خیلی قشنگ بود، یعنی 100 خط کد را به 7 خط کد خلاصه کردید.
پر روئی من رو ببخشید اما می خواستم بدونم برای کد زیر نیر راه حلی وجود داره یا نه؟ این دقیقا سوالی که من در اول این پست مد نظرم بود.


If (CType(Settings("NoOfColumns"), String) = "1") Then
Me.lbl1.Visible = True
Me.txt1.Visible = True
Me.lbl2.Visible = False
Me.txt2.Visible = False
Me.lbl3.Visible = False
Me.txt3.Visible = False
Me.lbl4.Visible = False
Me.txt4.Visible = False
Me.lbl5.Visible = False
Me.txt5.Visible = False
Me.lbl6.Visible = False
Me.txt6.Visible = False
Me.lbl7.Visible = False
Me.txt7.Visible = False
Me.lbl8.Visible = False
Me.txt8.Visible = False
Me.lbl9.Visible = False
Me.txt9.Visible = False
Me.lbl10.Visible = False
Me.txt10.Visible = False
ElseIf (CType(Settings("NoOfColumns"), String) = "2") Then
Me.lbl1.Visible = True
Me.txt1.Visible = True
Me.lbl2.Visible = True
Me.txt2.Visible = True
Me.lbl3.Visible = False
Me.txt3.Visible = False
Me.lbl4.Visible = False
Me.txt4.Visible = False
Me.lbl5.Visible = False
Me.txt5.Visible = False
Me.lbl6.Visible = False
Me.txt6.Visible = False
Me.lbl7.Visible = False
Me.txt7.Visible = False
Me.lbl8.Visible = False
Me.txt8.Visible = False
Me.lbl9.Visible = False
Me.txt9.Visible = False
Me.lbl10.Visible = False
Me.txt10.Visible = False
End If

[NewFoxStudent]

Dim a As New Control, i As Short, s As String
For Each a In Me.Controls
For i = 1 To 10
s = "TextBox" + i.ToString
If a.Name = s Then
a.Visible = False
End If
Next
Next