Question

vb.net给控件加事件

已经用代码添加了一个控件，但是无法添加事件。

Answer 1

两种方法：

1. 用WithEvents声明变量，这样你就可以像对待拖上去的控件一样操作：

 
Public Class Form3
    
    WithEvents btn As New Button
    Private Sub Form3_Load(sender As Object, e As EventArgs) Handles Me.Load
        Controls.Add(btn)
    End Sub
    Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
        MsgBox(Now)
    End Sub

End Class

2. 使用AddHandler 语句：

Public Class Form3
   
    Private Sub Form3_Load(sender As Object, e As EventArgs) Handles Me.Load
        Dim btn As New Button
        AddHandler btn.Click, AddressOf btn_Click
        Controls.Add(btn)
    End Sub
    Private Sub btn_Click(sender As Object, e As EventArgs)
        MsgBox(Now)
    End Sub
 
End Class

WithEvents (Visual Basic)：http://msdn.microsoft.com/zh-cn/library/vstudio/aty3352y

AddHandler 语句：http://msdn.microsoft.com/zh-cn/library/vstudio/7taxzxka.aspx

Answer 2

Dim button2 As New Button
AddHandler button2.Click, AddressOf Button1_Click
'绑定button2控件的点击事件，点击button2将触发Button1_Click事件