vb net控件数组处理方法

https://www.360docs.net/doc/445291339.html,控件数组的处理方法

By: LaiCQ

2014-4-28 16:30:27

VB6有控件数组,这个是很方便的,可以将所有同类型的控件组成一个数组,方便处理,但https://www.360docs.net/doc/445291339.html,却没有.网上找了很多方法,都不实用,现在采用如下方法可以解决问题:
方法为:采用Tag来标识各个控件
例如:
1: 加入控件:btnMain_0, btnMain_1, btnMain_2, 其Tag:分别设置为:0, 1, 2
2: 建立一个函数如下, 其可以响应不同的Button事件,这样将所有事件列在一起分别处理就不会乱了.
'Main窗体:按钮Button的单击处理
Private Sub btnMain_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles _
btnMain_0.Click, btnMain_1.Click, btnMain_2.Click

Dim iIndex As Integer

On Error GoTo SolveErr

iIndex = CInt(CType(sender, Button).Tag)
Select Case iIndex
Case 0 '按键0的处理
Case 1 '按键1的处理
Case 2 '按键2的处理
End Select

Exit Sub
SolveErr:
End Sub
3: 对其它类型的控件处理是一样的,只要修改:CType(sender, Button)中的Button, 如下拉列表框为:iIndex = CInt(CType(sender, ComboBox).Tag)