تغغیر خصوصیات چندتکست باکس به طورجداگانه

[sagggad]

سلام دوستان.من درفرمم 60 تا تکست باکس دارم که Visible همشون False هستش.حالا میخوام با هربارباکلیک کردن بر روی یک دکمه در یک دستور سه تا از تکس باکس هام نمایش داده بشن(یعنی Visible اونها True بشه)!این کار با دادن دستور زیر خیلی راحته:
TEXTbox1.visible=true
TEXTbox2.visible=true
TEXTbox3.visible=true
اما این طوری باید حداقل 60 خط دستور بنویسی. میخوام این دکمه یه کاری کنه که بازدن بار اول سه تا تکست باکس نمایش داده شه.بار دوم سه تای بعدی وهمین طور تا شستمین تکست باکس.دوستان خیلی از راهنماییتون
ممنون میشم!!!

[Hossis]

فكر كنم اين دستور کارساز باشه
البته تست نكردم
Sub enable_Text()
Dim I As Byte = 0
For Each Itm As Control In frmMain.Controls
If TypeOf Itm Is TextBox Then
If Itm.Enabled = False Then
Itm.Enabled = True
I += 1
If I >= 3 Then Exit Sub
End If

End If
Next
End Sub

[hosein320]

اول یه متغیر عمومی تعریف کن مقدارش رو هم بزار یک(C = 1)
و فرض میگیریم که کنترل های شما تو panel1 هستن

for i as integer = C to C + 3
panel1.controls("Txt" & i).visible = True
next
C +=3

موفق باشین:چشمک: