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

控件数组和事件

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

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

“中间人”

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

Public Class MyButtonInherits System.Windows.Forms.ButtonPublic BtPtr As MyButton = MePublic BtNo As LongPublic Event MyEventMouseClick()Public Sub RaiseMyEventMouseClick(No As Long)BtNo = NoRaiseEvent MyEventMouseClick()End SubPrivate Sub MyButton_MouseClick() Handles Me.MouseClickBtPtr.RaiseMyEventMouseClick(BtNo)End SubEnd Class

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

BtNo记录了这个实例MyButton所在数组的序列号

每当按键的MouseClick事件触发时，便会调用BtPtr的RaiseMyEventMouseClick方法来触发BtPtr的MyEventMouseClick事件并传递按键的代号BtNo

动态添加控件

新建一个窗体Form1，添加按钮Button1，并填写如下代码：

Public Class Form1Dim WithEvents Bt As New MyButtonDim BtArr(10) As MyButtonDim i As Long = 0Dim p As PointPrivate Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.ClickIf Not i > 10 ThenBtArr(i) = New MyButtonBtArr(i).BtNo = iBtArr(i).BtPtr = BtBtArr(i).Text = "按钮" & ip.X = 40p.Y = 40 + 30 * iBtArr(i).Location = pMe.Controls.Add(BtArr(i))i = i + 1End IfEnd SubPrivate Sub Bt_MyEventMouseClick() Handles Bt.MyEventMouseClickMessageBox.Show("按钮" & Bt.BtNo & "按下了")End SubEnd Class

Bt是一个MyButton控件，但并不在窗体上显示出来，所有实例化的BtArr()成员中的BtPrt都会指向Bt

当Bt的MyEventMouseClick事件触发时，便会显示是几号按钮被按下了。