按鈕變量VB.Net

Question

即時創建遊戲的用途技能如治療，罷工等我希望他們的玩家能夠將技能分配給熱鍵。但即時尋找一種方式，我可以做一個「變量」按鈕，可以做這樣的事情： 改變一個變量，如「名稱」的價值已經創建的按鈕名稱值。 EX：

Dim bla As New Button 
Private Sub btnHot3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHot3.Click 
    bla = New Button 
    bla.Name = "btnHot3" 
    Hotkey(SkillUsed, bla) 
End Sub 
Sub Hotkey(ByVal skillused As Integer, ByVal bla As Button) 
    If SkillSelected = 1 Then 
     btnHot3.Image = My.Resources.Heal 
    ElseIf SkillSelected = 2 Then 
     bla.Image = My.Resources.Strike 
    ElseIf SkillSelected = 3 Then 
     bla.Image = My.Resources.Finisher 
    End If 
End Sub 

Answer 1

您可以將新處理程序添加到按鈕（或其他控件）的事件中。可能需要同時刪除先前添加的處理程序。由於您沒有詳細說明如何選擇技能，我選擇使用單選按鈕（名稱以rb開頭）。當您單擊其中一個單選按鈕時，它會更改相關按鈕的行爲（我使用了兩個按鈕）。

Public Class Form1 

Dim currentClickHandlers As New Dictionary(Of Button, List(Of EventHandler)) 

Sub SetOnlyClickHandler(target As Button, handler As EventHandler, label As String) 
    ' remove any previously stored click event handlers if they exist 
    If currentClickHandlers.ContainsKey(target) Then 
     For Each hndlr In currentClickHandlers(target) 
      RemoveHandler target.Click, hndlr 
     Next 
     currentClickHandlers(target).Add(handler) 
    Else 
     Dim evntHandlers = New List(Of EventHandler) 
     evntHandlers.Add(handler) 
     currentClickHandlers.Add(target, evntHandlers) 
    End If 

    AddHandler target.Click, handler 
    target.Text = label 

End Sub 

Sub SetHotButtonAction(target As Button, action As Integer) 
    ' depending on which button is the target, set appropriate actions 
    Select Case True 

     Case target.Equals(Button1) 

      Select Case action 
       Case 1 
        target.BackColor = Color.Green 
        SetOnlyClickHandler(target, AddressOf Heal, "Heal") 
       Case 2 
        target.BackColor = Color.Yellow 
        SetOnlyClickHandler(target, AddressOf Strike, "Strike") 
       Case 3 
        target.BackColor = Color.Red 
        SetOnlyClickHandler(target, AddressOf Finisher, "Finisher") 
      End Select 

     Case target.Equals(Button2) 

      Select Case action 
       Case 1 
        target.BackColor = Color.Purple 
        SetOnlyClickHandler(target, AddressOf RunAway, "Run away") 
       Case 2 
        target.BackColor = Color.Pink 
        SetOnlyClickHandler(target, AddressOf DuckAndCover, "Duck and cover") 
      End Select 

    End Select 

End Sub 

' methods to be used for the actions 
Sub Heal(sender As Object, e As EventArgs) 
    MsgBox("Heal") 
End Sub 

Sub Strike(sender As Object, e As EventArgs) 
    MsgBox("Strike") 
End Sub 

Sub Finisher(sender As Object, e As EventArgs) 
    MsgBox("Finisher") 
End Sub 

Sub RunAway(sender As Object, e As EventArgs) 
    MsgBox("Flee!") 
End Sub 

Sub DuckAndCover(sender As Object, e As EventArgs) 
    MsgBox("Duck and cover") 
End Sub 

' set the actions of the radiobuttons 
Private Sub rbHeal_Click(sender As Object, e As EventArgs) Handles rbHeal.Click 
    SetHotButtonAction(Button1, 1) 
End Sub 
Private Sub rbStrike_Click(sender As Object, e As EventArgs) Handles rbStrike.Click 
    SetHotButtonAction(Button1, 2) 
End Sub 
Private Sub rbFinisher_Click(sender As Object, e As EventArgs) Handles rbFinisher.Click 
    SetHotButtonAction(Button1, 3) 
End Sub 

Private Sub rbRunAway_Click(sender As Object, e As EventArgs) Handles rbRunAway.Click 
    SetHotButtonAction(Button2, 1) 
End Sub 

Private Sub rbDuckAndCover_Click(sender As Object, e As EventArgs) Handles rbDuckAndCover.Click 
    SetHotButtonAction(Button2, 2) 
End Sub 

End Class