VB.NET 類似VB6物件陣列寫法

mhfo

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For Each btn As Control In Me.Controls
            'For Each btn As Control In GroupBox1.Controls     '若物件放於GroupBox1中~
            If TypeOf (btn) Is Button Then
                AddHandler CType(btn, Button).MouseDown, AddressOf Button_MouseDown
            End If
        Next
    End Sub

    Private Sub Button_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
        MessageBox.Show(CType(sender, Button).Name)
    End Sub
End Class


'測試時~開新專案後~拉4各BUTTON物件,就可執行看結果
'也可將4各物件放於GroupBox1



另一種範例
http://www.dotblogs.com.tw/yc421206/archive/2009/06/01/8636.aspx