作者tatalo (TT)
看板Visual_Basic
標題[.NET] 有辦法縮短這段程式嘛
時間Wed Mar 29 09:58:00 2006
最近要寫個查詢火車票價的程式
我是這樣寫
車種有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
1F：推 rosemary:把所有button放到陣列 用迴圈或for each來設 03/29 16:20
2F：推 sueadolph:學習一下怎麼使用"控制項陣列" (通常VB的書都有教) 03/31 02:56
3F：推 tatalo:我試看看...阿李嘎都 03/31 10:36