如何創建新的按鈕運行

Question

我在VB中使用此代碼添加上運行一個新的按鈕：

Sub AddButton(ByVal label As String, ByVal location As Point) 

Dim b As Button 

b = New Button 
b.Location = location 
b.Text = label 
Me.Controls.Add(b) 

End Sub 

，但我想給它一個名稱和獲取/設置其屬性，並賦予它新的事件 如給它一個點擊事件，改變我的新按鈕的文本。

感謝

Answer 1

你的名字的按鈕，像這樣：

Sub AddButton(ByVal label As String, ByVal location As Point) 
    '... 
    b.Name = "MyButton" 
    '... 
End Sub 

你添加一個單擊處理這樣：

Sub AddButton(ByVal label As String, ByVal location As Point) 
    '... 
    'Option 1: 
    AddHandler b.Click, Sub(sender As Object, e As EventArgs) CType(sender, Button).Text = "NewText" 

    'Option 2: 
    AddHandler b.Click, AddressOf MyButtonClick 
    '... 
End Sub 

Private Sub MyButtonClick(sender As Object, e As EventArgs) 
    CType(sender, Button).Text = "NewText" 
End Sub