VB.NET 中動態添加按鈕並添加點擊事件

Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click

Dim btn(10) As Button

Dim count1 As Int16

For count1 = 0 To 10

btn(count1) = New Button

btn(count1).SetBounds(400, 5 + count1 * 45, 150, 40)

btn(count1).Text = "我是第" & count1 + 1 & "個按鈕"

btn(count1).Tag = count1

Me.Controls.Add(btn(count1))

AddHandler btn(count1).Click, AddressOf Me.btClick

Next

End Sub

Private Sub btClick(ByVal sender As Object, ByVal e As EventArgs)

Dim btn As Button

btn = CType(sender, Button)

MsgBox(btn.Tag.ToString.PadLeft(3, "0") & ":" & btn.Text)

End Sub

本代碼通過點擊button15來創建11個按鈕並添加到界麵中。

注意的是創建按鈕的索引是利用按鈕的tag屬性保存的。

創建後按鈕的click方法被轉到btclick函數上去了

AddHandler btn(count1).Click, AddressOf Me.btClick