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

看板Visual_Basic作者tatalo (TT)時間19年前 (2006/03/29 09:52)推噓3(3推 0噓 0→)

留言3則, 3人參與討論串1/1

最近要寫個查詢火車票價的程式我是這樣寫車種有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