VB 网络。当其他事件被触发时如何触发一个事件?

VB NET. How fire an event when other event is fired?

此致。我又来了,又在 VisualBasic.Net 发展了。

我创建了一个可以在执行时创建按钮的 UserControl,我需要一种方法来在每次单击其中一个按钮时使用 UserControl 的窗体中执行函数。

我正在考虑将我的函数处理到 UserControl 的 Click 事件并在我单击按钮时触发它,但我不确定该怎么做。

创建一个新事件:

Public Class DemoUserControl

    Private Sub btnFiresClick_Click(sender As Object, e As EventArgs) Handles btnFiresClick.Click
        RaiseEvent CustomClick() 'Fire the event
    End Sub

    Public Event CustomClick()
End Class

并在表格中处理:

Public Class Form1

    Private Sub DemoUserControl1_CustomClick() Handles DemoUserControl1.CustomClick
        ' your code
    End Sub

End Class

动态:

Private Sub DemoUserControl_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Dim newButton As New Button
    AddHandler newButton.Click, AddressOf btnFiresClick_Click
    Me.Controls.Add(newButton)

End Sub