作者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