VB网.触发事件时触发事件的方式

Question

最好的问候。我在这里，再次在 VisualBasic.Net 发展。

我

创建了一个可以在执行时间内创建按钮的用户控件，并且我需要一种方法来执行表单中的函数，每次单击其中一个按钮时，我都会使用UserControl。

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

Answer 1

创建一个新事件：

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