※ 引述《fumizuki (矇面加菲獅)》之銘言：
: '記錄目前選取的項目索引
: Protected Sub Rdo_List_Click(ByVal sender As Object, _
: ByVal e As System.EventArgs)
: Rdo_SelectedIndex = Val(CType(sender, RadioButton).Name.Split("_")(1))
^^^^^^^^^^^^^^^^^^^
可以將這行改成
Rdo_SelectedIndex = Array.IndexOf(Rdo_List, sender)
這樣就不用去理控制項的名稱了。
: End Sub
: '顯示目前選取的項目的文字
: Private Sub Button1_Click(ByVal sender As System.Object, _
: ByVal e As System.EventArgs) Handles Button1.Click
: MsgBox(Rdo_List(Rdo_SelectedIndex).Text, MsgBoxStyle.Information)
: End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 220.132.136.27