VB.NET中是否存在AnyMethodCalled事件？如何实现方法执行后自动输出当前方法信息？

嘿，这个问题问得很实用！VB.NET本身并没有内置一个能自动在任意方法执行后触发的AnyMethodCalled事件，但咱们完全不用手动给每个Sub都加那行Debug代码——有几种更优雅的方案可以实现你的需求：

面向切面编程（AOP）就是专门干这种“给一批方法统一加通用逻辑”的活儿，比如PostSharp就是.NET生态里常用的AOP框架，VB.NET完全支持。你只需要定义一个“日志切面”，然后给目标类或方法打上标记，所有方法执行后都会自动触发你的Debug逻辑。

举个简单的实现示例：

Imports PostSharp.Aspects
Imports System.Diagnostics

' 定义一个日志切面，继承自PostSharp的方法边界切面
<Serializable>
Public Class MethodLoggingAspect
    Inherits OnMethodBoundaryAspect

    ' 方法执行完成后会触发这个方法
    Public Overrides Sub OnExit(args As MethodExecutionArgs)
        MyBase.OnExit(args)
        ' 输出当前执行的方法信息
        Debug.WriteLine(args.Method)
    End Sub
End Class

' 给你的业务类打上这个切面标记，所有方法都会自动生效
<MethodLoggingAspect>
Public Class MyBusinessClass
    Public Sub ProcessOrder()
        ' 你的业务逻辑代码
    End Sub

    Public Sub UpdateUserInfo()
        ' 另一块业务逻辑
    End Sub
End Class

如果不想引入外部框架，可以用Castle DynamicProxy（轻量级的动态代理库）来实现方法拦截。这个方案需要你的类先实现接口，然后通过代理对象来调用方法，代理会在方法执行后自动触发你的逻辑。

示例代码：

Imports Castle.DynamicProxy
Imports System.Diagnostics

' 先定义业务接口
Public Interface IMyBusiness
    Sub ProcessOrder()
    Sub UpdateUserInfo()
End Interface

' 实现接口的业务类
Public Class MyBusinessClass
    Implements IMyBusiness
    Public Sub ProcessOrder() Implements IMyBusiness.ProcessOrder
        ' 业务逻辑
    End Sub

    Public Sub UpdateUserInfo() Implements IMyBusiness.UpdateUserInfo
        ' 业务逻辑
    End Sub
End Class

' 定义拦截器，实现方法执行后的逻辑
Public Class MethodCallInterceptor
    Implements IInterceptor
    Public Sub Intercept(invocation As IInvocation) Implements IInterceptor.Intercept
        ' 先执行原方法
        invocation.Proceed()
        ' 方法执行完成后输出信息
        Debug.WriteLine(invocation.Method)
    End Sub
End Class

' 使用方式：创建代理对象并调用方法
Dim proxyGenerator As New ProxyGenerator()
Dim interceptor As New MethodCallInterceptor()
Dim businessProxy As IMyBusiness = proxyGenerator.CreateInterfaceProxyWithTarget(New MyBusinessClass(), interceptor)

' 调用代理的方法，会自动触发日志逻辑
businessProxy.ProcessOrder()

如果你的类方法不多，或者不想用任何外部依赖，也可以自己定义AnyMethodCalled事件，然后把事件触发逻辑封装成一个通用方法，减少重复代码。这里可以用CallerMemberName特性来自动获取调用方法的名称，不用手动传参：

Imports System.Diagnostics
Imports System.Reflection
Imports System.Runtime.CompilerServices

Public Class MyBusinessClass
    ' 定义你想要的AnyMethodCalled事件
    Public Event AnyMethodCalled As Action(Of MethodInfo)

    ' 封装通用的事件触发方法，用CallerMemberName自动获取调用者方法名
    Private Sub RaiseMethodCalled(<CallerMemberName> Optional methodName As String = Nothing)
        Dim targetMethod = Me.GetType().GetMethod(methodName)
        RaiseEvent AnyMethodCalled(targetMethod)
        Debug.WriteLine(targetMethod)
    End Sub

    ' 每个方法最后调用这个通用方法即可
    Public Sub ProcessOrder()
        ' 业务逻辑
        RaiseMethodCalled()
    End Sub

    Public Sub UpdateUserInfo()
        ' 业务逻辑
        RaiseMethodCalled()
    End Sub
End Class

' 订阅事件的用法
Dim business As New MyBusinessClass()
AddHandler business.AnyMethodCalled, Sub(method) Debug.WriteLine($"方法执行完成：{method.Name}")

总结一下：VB.NET没有内置的全局方法执行事件，但通过AOP框架、动态代理或者手动封装事件，都能避免给每个方法重复加Debug代码，其中AOP是最省心的方案。

内容的提问来源于stack exchange，提问作者Peter Rudo