実行時にいくつかのコントロールをフォームに追加しましたが、クリックしたときに関数を呼び出す必要があります。追加されるコントロールの数はわかりませんが、すべて同じ機能を実行する必要があります。イベントをどのように定義しますか? 特定のクラスのすべてのコントロールに基づいてイベントを定義できますか?
質問する
22115 次
2 に答える
7
簡単な例:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' creating control
Dim btn1 As Button = New Button()
Dim btn2 As Button = New Button()
btn1.Parent = Me
btn1.Name = "btn1"
btn1.Top = 10
btn1.Text = "Btn1"
btn2.Parent = Me
btn2.Name = "btn2"
btn2.Top = 50
btn2.Text = "Btn2"
'adding handler for click event
AddHandler btn1.Click, AddressOf HandleDynamicButtonClick
AddHandler btn2.Click, AddressOf HandleDynamicButtonClick
End Sub
Private Sub HandleDynamicButtonClick(ByVal sender As Object, ByVal e As EventArgs)
Dim btn As Button = DirectCast(sender, Button)
If btn.Name = "btn1" Then
MessageBox.Show("Btn1 clicked")
ElseIf btn.Name = "btn2" Then
MessageBox.Show("Btn2 Clicked")
End If
End Sub
End Class
于 2013-02-19T01:58:43.113 に答える
2
単に:
AddHandler Control.Event, AddressOf MethodExecuting
例えば:
AddHandler Button1.Click, AddressOf ClickMethod
于 2013-02-19T09:02:53.147 に答える