[.NET] 有辦法縮短這段程式嘛

[tatalo (TT)]

最近要寫個查詢火車票價的程式

我是這樣寫

車種有4種,起始站跟終點站各10個..都用radiobutton

自強號跟莒光號設定如下..

如果選定電車跟普通車的話..要全部設= true (這邊就沒貼出來了)

有方法可以不打這麼一大串...抓所有radiobutton的控制紐為ture嗎??

看文章好像可以設成陣列或用迴數@@

但方法看不懂..麻煩請教一下..m(_ _)m

    Private Sub RabxTC_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RabxTC.CheckedChanged
        If RabxTC.Checked = True Then
            Rabtn1.Enabled = False
            Rabtn11.Enabled = False
            Rabtn2.Enabled = False
            Rabtn22.Enabled = False
            Rabtn3.Enabled = False
            Rabtn33.Enabled = False
            Rabtn4.Enabled = False
            Rabtn44.Enabled = False
            Rabtn6.Enabled = False
            Rabtn66.Enabled = False
            Rabtn7.Enabled = False
            Rabtn77.Enabled = False
            Rabtn8.Enabled = False
            Rabtn88.Enabled = False
        Else
            GroupStart.Enabled = True
        End If
    End Sub

    Private Sub RabxCK_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RabxCK.CheckedChanged
        If RabxCK.Checked = True Then
            Rabtn1.Enabled = False
            Rabtn11.Enabled = False
            Rabtn2.Enabled = False
            Rabtn22.Enabled = False
            Rabtn3.Enabled = False
            Rabtn33.Enabled = False
            Rabtn6.Enabled = False
            Rabtn66.Enabled = False
            Rabtn7.Enabled = False
            Rabtn77.Enabled = False
        Else
        End If
    End Sub

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 192.192.197.47
推 rosemary:把所有button放到陣列 用迴圈或for each來設
推 sueadolph:學習一下怎麼使用"控制項陣列" (通常VB的書都有教)
推 tatalo:我試看看...阿李嘎都