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
新浪微博
QQ空间
人人网
腾讯微博
Facebook
Google+
Plurk
Twitter
Line