在堆栈跟踪中获取 VB.NET 行号

Question

我有一个 VB.NET 2010 Winforms 应用程序，我想在堆栈跟踪中包含行号。我已阅读以下问题和答案：

how to print out line number during application run in VB.net

其中提到“您始终需要在代码中包含 PDB 文件，其中包含在这种情况下使用的调试信息”。在高级编译器设置下，我尝试将“生成调试信息”作为“仅 pdb”和“完整”用于我的发布版本，并确认在与我的 EXE 相同的目录中生成了一个新的 PDB 文件。然而，以下测试代码为每个堆栈帧生成一个零行号，并且不返回文件名：

    Dim st As StackTrace = New StackTrace(ex)
    For Each sf As StackFrame In st.GetFrames
        MsgBox("Line " & sf.GetFileLineNumber() & sf.GetFileName)
    Next

但是，下面的代码直接生成了一个看起来不错的堆栈跟踪，因此通常异常处理程序似乎没有问题：

ExceptionDetails.Text = ex.GetType.ToString & "(0x" & hr.ToString("X8") & "): " & ex.Message & vbCrLf & ex.StackTrace

我似乎在项目配置下找不到任何其他可能的设置，并想知道是否有人对可能导致此问题的其他事情有想法。我在这里和其他地方搜索到的所有解决方案似乎只是建议确保 PDB 与可执行文件位于同一路径中。

Answer 1

来自您正在调用的构造函数的documentation：

StackTrace 是使用调用者的当前线程创建的，不包含文件名、行号或列信息。

尝试使用：

Dim st As StackTrace = New StackTrace(ex, True)

改为使用this constructor。第二个构造函数参数描述为：

true 捕获文件名、行号和列号；否则为假。

Answer 2

尝试使用

public StackTrace(Exception e, bool fNeedFileInfo);

构造函数并将 fNeedFileInfo 设置为 true

Answer 3

这个问题已经解决了一段时间，但我想我会分享我最近在我的项目中包含的最终工作功能。它返回初始异常信息和此时的完整堆栈跟踪，后跟堆栈跟踪中导致异常的行号和文件名。

Public Function GetExceptionInfo(ex As Exception) As String
    Dim Result As String
    Dim hr As Integer = Runtime.InteropServices.Marshal.GetHRForException(ex)
    Result = ex.GetType.ToString & "(0x" & hr.ToString("X8") & "): " & ex.Message & Environment.NewLine & ex.StackTrace & Environment.NewLine
    Dim st As StackTrace = New StackTrace(ex, True)
    For Each sf As StackFrame In st.GetFrames
        If sf.GetFileLineNumber() > 0 Then
            Result &= "Line:" & sf.GetFileLineNumber() & " Filename: " & IO.Path.GetFileName(sf.GetFileName) & Environment.NewLine
        End If
    Next
    Return Result
End Function