學(xué)習(xí)筆記：VB.net動(dòng)態(tài)添加控件數(shù)組并傳遞事件

• 控件數(shù)組和事件
• “中間人”
• 動(dòng)態(tài)添加控件

控件數(shù)組和事件

新建一個(gè)用戶窗體，在定義控件數(shù)組時(shí)，不能用Withevnets來定義數(shù)組

即使可以，為每一個(gè)數(shù)組成員編寫事件也是非常麻煩的，考慮通過一個(gè)“中間人”來傳遞事件

“中間人”

用繼承的方法為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 Sub End Class

這里BtPtr是一個(gè)指針，每當(dāng)新的實(shí)例一個(gè)MyButton控件的時(shí)候，讓其指向某個(gè)特定的不在數(shù)組中的Button控件（這個(gè)控件在面板上不顯示出來），這個(gè)特定的Button控件用來傳遞MouseClick事件
BtNo記錄了這個(gè)實(shí)例MyButton所在數(shù)組的序列號(hào)

每當(dāng)按鍵的MouseClick事件觸發(fā)時(shí)，便會(huì)調(diào)用BtPtr的RaiseMyEventMouseClick方法來觸發(fā)BtPtr的MyEventMouseClick事件并傳遞按鍵的代號(hào)BtNo

動(dòng)態(tài)添加控件

新建一個(gè)窗體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是一個(gè)MyButton控件，但并不在窗體上顯示出來，所有實(shí)例化的BtArr()成員中的BtPrt都會(huì)指向Bt
當(dāng)Bt的MyEventMouseClick事件觸發(fā)時(shí)，便會(huì)顯示是幾號(hào)按鈕被按下了。

總結(jié)

以上是生活随笔為你收集整理的学习笔记：VB.net动态添加控件数组并传递事件的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。