直接上代码：

1、单纯委托使用：

 

Delegate Sub wt(data As String) '定义委托

 

Public Class Form1

 

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

 

        Dim xc As New Threading.Thread(AddressOf betweenClass) 

        xc.Start()

 

    End Sub

 

    ''' <summary>

    ''' 被委托的中间类

    ''' </summary>

    Private Sub betweenClass()

        Me.Invoke(New wt(AddressOf changeUI), "你好") '用Invoke跨线程更新UI

    End Sub

 

    Private Sub changeUI(data As String) '这里要和委托定义时的参数保持一致

        Label1.Text = data

    End Sub

End Class

 

2、自定义事件 加 委托更新UI

 

''' <summary>

''' 自定义事件 加 委托更新UI

''' 

''' 委托：原本是自己的事，但是由于某种原因自己做不了，就委托别人来帮助完成

''' </summary>

 

Delegate Sub wt(data As String) '定义委托---有参

'Delegate Sub wt()  '无参

 

Public Class Form1

    Private WithEvents eveDemo As New EveDemo '获取事件类的对象，并用WithEvents修饰

 

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        eveDemo.Test() '1、先调用另一个类中的方法来触发自定义事件，在事件回调方法中来用Invoke跨线程更新UI

    End Sub

 

    ''' <summary>

    ''' 自定义事件回调处理方法

    ''' </summary>

    ''' <param name="data"></param>

    Private Sub mEve_Eve(data As String) Handles eveDemo.Eve

        Me.Invoke(New wt(AddressOf changeUI), data) '定义委托有参数时，可在这里加参数

        'Me.Invoke(New wt(AddressOf caozuo)) ’这是无参

    End Sub

 

    Private Sub changeUI(data As String) '这里要和委托定义时的参数保持一致

        Label1.Text = data

    End Sub

End Class

 

 

 

————————————————

版权声明：本文为CSDN博主「_Cike_」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。

原文链接：https://blog.csdn.net/qq_35952946/article/details/79233993