Re: [.NET] 物件陣列的共同event判斷問題...
'宣告一個陣列準備存放動態產生的控制項
'並宣告一個變數存放目前選擇的項目索引
Private Rdo_List() As RadioButton, Rdo_SelectedIndex As Int32 = -1
Private Sub Form1_Shown(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Shown
Const count As Int32 = 10 '假設建立10個選項
ReDim Rdo_List(count)
Dim x As Int32 = 0, y As Int32 = 0
For i As Int32 = 0 To count - 1
'開始產生控制項，決定控制項名稱、文字、位置、及事件
Rdo_List(i) = New RadioButton()
Rdo_List(i).Name = "rdo_" & i
Rdo_List(i).Text = "rdo_" & (i + 1)
AddHandler Rdo_List(i).Click, AddressOf Rdo_List_Click
Rdo_List(i).Left = x
Rdo_List(i).Top = y
TabPage1.Controls.Add(Rdo_List(i)) '將新控制項放到TabPage中
x += Rdo_List(i).Width + 5
'超過可顯示範圍自動往下排
If x + Rdo_List(i).Width + 5 > TabPage1.Width Then
x = 0 : y += Rdo_List(i).Height + 5
End If
Next
End Sub
'記錄目前選取的項目索引
Protected Sub Rdo_List_Click(ByVal sender As Object, _
ByVal e As System.EventArgs)
Rdo_SelectedIndex = Val(CType(sender, RadioButton).Name.Split("_")(1))
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
--
▃▅▇▆▄ ▆▂▃ `
逝去感情如何能留住，半點癡情遺留殊不易，██▅▇▄▃ ▇▃▂" .
█████████▃i ▁▄▇
更多悽悽慘慘的遭遇…………██▆▃ █▅▆▃ˍ▄*
◢ ▂█▄▇▅▂▌.
我不知道，王～八～蛋～～！ ▂▆███ █▄▃ 。fumizuki。Check。
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 118.233.58.149
推
01/27 00:20, , 1F
01/27 00:20, 1F
推
01/28 00:32, , 2F
01/28 00:32, 2F
→
01/28 00:34, , 3F
01/28 00:34, 3F
推
01/28 16:59, , 4F
01/28 16:59, 4F
討論串 (同標題文章)
以下文章回應了本文：
完整討論串 (本文為第 2 之 3 篇)：