作者fumizuki (蒙面加菲狮)
看板Visual_Basic
标题Re: [.NET] 物件阵列的共同event判断问题...
时间Mon Jan 26 22:07:42 2009
'宣告一个阵列准备存放动态产生的控制项
'并宣告一个变数存放目前选择的项目索引
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
1F：推 UniFish:哇靠~太强了~马上来试试看 01/27 00:20
2F：推 vber:如果只是想将手动产生的控制项阵列化以方便程式编写的话又应 01/28 00:32
3F：→ vber:该如何作..可以查到c#的作法...可是vb.net..... 01/28 00:34
4F：推 Marty:C#做得到的..vb.net应该也做得到... 01/28 16:59