台灣最大程式設計社群網站
線上人數
635
 
會員總數:244539
討論主題:188696
歡迎您免費加入會員
討論區列表 >> VB.NET >> RadioButton 依 label 值 觸發 RadioButton 組
[]  
[我要回覆]
1
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
RadioButton 依 label 值 觸發 RadioButton 組
價值 : 50 QP  點閱數:224 回應數:7

樓主

MStone Lin
門外漢
0 79
1604 110
發送站內信

請問

有一表格如下

| r5 | r6 |
-------------------------+------+------|
r1(0) r2(1) r3(2) r4(3) | L1 | L2 |
-------------------------+------+------|
.....
.....

r1~r6 都是RadioButton (r5、r6單選,r1~r4單選)
L1、L2 是label

if r5.checked L1的值是 r1~r4的值(0、1、2、3)
if r6.checked L2的值是 r1~r4的值(0、1、2、3)
ex:
r5.checked and r2.checked L1="1"
r6.checked and r3.checked L2="2"

當r5 和 r6互相切換時
r1~r4的checked 會依 L1 或 L2 作切換
ex:
r6.checked 時 L1=2、 L2=2、r3.checked
當 r5.checked 時變 L1=1、 L2=2、r2.checked
再 r6.checked 時變 L1=1、 L2=2、r3.checked

如何辦的到
查了許久,需要java來作,但選項一多時就麻煩了



請問怎麼寫才能正確觸發

謝謝



搜尋相關Tags的文章: [ RadioButton ] , [ event RadioButton ] ,
本篇文章發表於2019-01-01 12:03
別忘捐VP感謝幫助你的人 新手會員瞧一瞧
1樓
作者回應

MStone Lin
檢舉此回應
Sorry
內容有打錯,正確如下

當r5 和 r6互相切換時
r1~r4的checked 會依 L1 或 L2 作切換
ex:
r6.checked 時 L1=1、 L2=2、r3.checked
當 r5.checked 時因 L1=1、 L2=2 變r2.checked
再 r6.checked 時因 L1=1、 L2=2 變r3.checked
本篇文章回覆於2019-01-01 12:07
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
2樓
回應

P陳
檢舉此回應
1.看不出來您的問題在那?
2.有兩段的程式可以壓縮一下

If Label1.Text = "0" Then R1.Checked = True
If Label1.Text = "1" Then R2.Checked = True
If Label1.Text = "2" Then R3.Checked = True
If Label1.Text = "3" Then R4.Checked = True
以上可以改成
me.controls("R" & (label1.text +1)).Checked=true


If Label2.Text = "0" Then R1.Checked = True
If Label2.Text = "1" Then R2.Checked = True
If Label2.Text = "2" Then R3.Checked = True
If Label2.Text = "3" Then R4.Checked = True
這也可改成如下:
me.controls("R" & (label2.text +1)).Checked=true
本篇文章回覆於2019-01-01 15:37
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
3樓
作者回應

MStone Lin
檢舉此回應
回P陳

1. 不會隨著R5 R6 的選擇 變動 r1~r4
只有在r1~r4變動後(r5)時
切到R6 改變r1~r4 再切回r5 ,此時r1~r4才會依據r5 和L1 的值變動

若R1~r4 都沒變動,無論切換r5 r6 都不會依L1 L2的值來變動

2.因後來有增加 control ,所以 RadioButton 跟 label的編號 不一定相同......

本篇文章回覆於2019-01-01 16:46
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
4樓
最有價值解答

P陳
檢舉此回應
1.您有偵錯嗎?
2.A. 是沒有執行到 以下其中之一,
If Label1.Text = "0" Then R1.Checked = True
If Label1.Text = "1" Then R2.Checked = True
If Label1.Text = "2" Then R3.Checked = True
If Label1.Text = "3" Then R4.Checked = True
還是 有執行但沒有改成功

3.沒有看到有還原的動作 ( 有可能沒有還原就不會有變化了)
for ii=1 0 to 3
Dim RAcontrol as checkbox=me.controls("R" & II)
RAcontrol.checked=false
next
-----------------------------
建議您用單步執行來 偵錯,就可知為何沒有達到您原先的目的了

本篇文章回覆於2019-01-01 17:12
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
5樓
回應

P陳
檢舉此回應
我寫錯了
for ii=1 0 to 3 --> for ii=0 to 3 才對

---------------------
您的程式這行 可能也錯了
Label30.Text = "3"
本篇文章回覆於2019-01-01 17:51
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
6樓
作者回應

MStone Lin
檢舉此回應
回P陳

改寫所有的radiobutton

For ii = 1 To 57
Dim RAcontrol As RadioButton = Me.FindControl("R" & CStr(ii))
RAcontrol.Checked = False
Next

真的要先全false,才會變化

感恩....

本篇文章回覆於2019-01-02 17:27
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
7樓
回應

P陳
檢舉此回應
如果問題解決了,請選【接受】來將問題串關掉
本篇文章回覆於2019-01-02 19:28
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
   
1

回覆
如要回應,請先登入.