StackTrace ByRef 到 VB.NET 中的另一个类

Question

我正在编写一个类，它必须作为 dll 文件添加到任何 .NET 项目中。 我陷入了困境，我需要向 System.Diagnostics.StackTrace "last_method_name_changed" 发起事件。

所以我需要找到一种方法来检测 StackTrace 中的变化，或者创建在线程进入或退出方法时引发的事件。比如：

Public Class DllClass
    Public Shared CallerTrace as StackTrace = Nothing
    Public Shared New(ByRef NewTrace as StackTrace) 'This is called from form.
        '''I know this will make a copy, but I have failed to find a solution.
        CallerTrace = NewTrace
    End Sub
    Public Shared Sub StackTrace_Changed() Handles CallerTrace.Changed
        MsgBox(CallerTrace.GetFrame(0).GetMethod.Name)
    End Sub
End Class

在主窗体中，这应该只被调用一次：

Dim DllCls as New DllClass(New Diagnostics.StackTrace)

我将不胜感激在制作“参考链接”或指向 StackTrace 的指针以及CallerTrace.GetFrame(0).GetMethod.Name 更改时将引发的事件的任何帮助。

Answer 1

没有复制，因为StackTrace 是一个引用类型（分配给引用不会复制底层对象）。参数声明中的ByRef是无关的，是多余的。

另一方面，您没有将CallerTrace 声明为WithEvents，因此您实际上并没有监听它引发的任何事件。但这行不通，因为System.Diagnostics.StackTrace 声明没有可以收听的公共事件。你的拦截方法调用的方法根本行不通。

要以您设想的方式拦截方法调用，您需要进一步钻取。幸运的是，有些库已经允许这样做，例如 AOP library PostSharp。