学习笔记：VB.net动态添加控件数组并传递事件

控件数组和事件

新建一个用户窗体，在定义控件数组时，不能用Withevnets来定义数组

即使可以，为每一个数组成员编写事件也是非常麻烦的，考虑通过一个“中间人”来传递事件

“中间人”

用继承的方法为Button控件增加一些事件、属性和方法

Public Class MyButton
    Inherits System.Windows.Forms.Button

    Public BtPtr As MyButton = Me
    Public BtNo As Long

    Public Event MyEventMouseClick()
    Public Sub RaiseMyEventMouseClick(No As Long)
        BtNo = No
        RaiseEvent MyEventMouseClick()
    End Sub

    Private Sub MyButton_MouseClick() Handles Me.MouseClick
        BtPtr.RaiseMyEventMouseClick(BtNo)
    End Sub
End Class

这里BtPtr是一个指针，每当新的实例一个MyButton控件的时候，让其指向某个特定的不在数组中的Button控件（这个控件在面板上不显示出来），这个特定的Button控件用来传递MouseClick事件
BtNo记录了这个实例MyButton所在数组的序列号

<