怎么为控件数组添加事件处理函数
在代码里面定义了
Dim index(49) As Button
想为他们写事件处理函数，我这样写的
Private Sub Index_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles index.Click
……
End Sub
不过会提示说index控件需要WithEvents变量，请问这个怎么写
问题点数：20、回复次数：3Top
1 楼lzmtw（水如烟）回复于 2006-06-02 23:01:56 得分 0
利用AddHandler和RemoveHandlerTop
2 楼lzmtw（水如烟）回复于 2006-06-02 23:07:31 得分 20
比如:
Private Sub ButtonClick(ByVal sender As System.Object, ByVal e As System.EventArgs)
Console.WriteLine(sender.ToString)
End Sub
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
For Each btn As Button In New Button() {Me.Button1, Me.Button2, Me.Button3}
RemoveHandler btn.Click, AddressOf Me.ButtonClick
Next
End Sub
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
For Each btn As Button In New Button() {Me.Button1, Me.Button2, Me.Button3}
AddHandler btn.Click, AddressOf Me.ButtonClick
Next
End SubTop
3 楼yzk0370（我很低调）回复于 2006-06-03 12:05:48 得分 0
谢谢水如烟Top
