委托的例子

最新推荐文章于 2023-07-22 15:08:11 发布

原创最新推荐文章于 2023-07-22 15:08:11 发布 · 863 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#string #class #object

VB.Net 专栏收录该内容

20 篇文章

订阅专栏

本文介绍了一种在Visual Basic .NET中使用自定义委托来处理事件的方法。通过创建一个名为MyDelegate的类，该类包含一个公共委托类型FirstDelegate及相应事件，演示了如何在Form1类中注册并响应这个事件。此方法可以提高代码的灵活性和可维护性。

Public Class Form1 Private Sub btnTest_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnTest.Click Dim delegateIns As New MyDelegate AddHandler delegateIns.Event, AddressOf Me.Method delegateIns.UseFirstDelegate("Hello delegate.") End Sub Private Sub Method(ByVal arg As String) MessageBox.Show(arg) End Sub End Class Public Class MyDelegate Public Delegate Sub FirstDelegate(ByVal arg As String) Public Event [Event] As FirstDelegate Public Sub UseFirstDelegate(ByVal arg As String) If arg Is Nothing Then arg = "" End If RaiseEvent [Event](arg) End Sub End Class