VB.NET:接口回调-获取调用者信息

Public Interface ICallback
    Sub OnCallback(data As String)
End Interface

Public Class Caller
    Private callback As ICallback

    Public Sub SetCallback(callback As ICallback)
        Me.callback = callback
    End Sub

    Public Sub DoSomething()
        ' 执行某些操作
        ' ...

        ' 调用回调方法
        callback.OnCallback("调用者信息")
    End Sub
End Class

Public Class CallbackImpl
    Implements ICallback

    Public Sub OnCallback(data As String) Implements ICallback.OnCallback
        Console.WriteLine("调用者信息：" & data)
    End Sub
End Class

Dim caller As New Caller()
Dim callback As New CallbackImpl()

caller.SetCallback(callback)
caller.DoSomething()