Private Sub MixedControls_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click, CheckBox1.Click
Visual Basic 6.0 控件数组的另一个功能是通过其 Index 属性引用控件的能力。虽然 Visual Basic .NET 控件不具有 Index 属性,但是您可以使用另一个公共属性(例如 TabIndex 或 Tag 属性)来实现相同的功能。
例如,您可以使用 Windows 窗体中新的可视选项卡排序功能设置一组控件的 TabIndex 属性,然后使用 Select Case 语句中的 TabIndex:
Private Sub MixedControls_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click, CheckBox1.Click
Select Case sender.TabIndex
Case 0
MsgBox("Button 1")
Case 1
MsgBox("Button 2")
Case 2
MsgBox("CheckBox 1")
End Select
End Sub