如何在 Visual Basic 中获取子类名称

Question

我有一个名为 LogException 的 Visual Basic 方法，它在 TRY..CATCH 失败时将信息写入我的异常数据库。该方法具有以下参数：

1. 方法位置；
2. 方法名；
3. 异常；

当我调用该方法时，我会使用以下代码：

_ex.LogException(
    Me.GetType.Name.ToString,
    MB.GetCurrentMethod.Name.ToString,
    ex.Message.ToString)

因此，如果我在名为“Test”的类中的名为“Insert_Test”的方法中调用此代码，我希望第一个参数接收“Test”，第二个参数接收“Insert_Test”，第三个参数接收抛出的异常的确切细节。

只要“测试”类是基类，这一切都可以正常工作。如果“Test”类是子类（例如称为“BigTest”），前两个参数仍将作为“Test”和“Insert_Test”传递。我需要知道的是如何获得确切的类树，以便这种情况下的第一个参数将作为“BigTest.Test”出现。

理想情况下，我希望能够做到这一点，而不必将任何值硬编码到我的代码中，以便可以“按原样”重复使用代码。

Answer 1

你可以使用这样的函数：

Public Function GetFullType(ByVal type As Type) As String
    Dim fullType As String = ""

    While type IsNot GetType(Object)
        If fullType = "" Then
            fullType &= type.Name
        Else
            fullType = type.Name & "." & fullType
        End If

        type = type.BaseType
    End While

    Return fullType
End Function

然后这样称呼它：

GetFullType(Me.GetType)

编辑：看起来 OP 实际上是在使用嵌套类，而不是继承类。在这种情况下，我发现 this answer 应该能够调整到提供的代码。

嵌套类的代码：

Shared Function GetFullType(ByVal type As Type) As String
    Dim fullType As String = ""

    While type IsNot Nothing
        If fullType = "" Then
            fullType &= type.Name
        Else
            fullType = type.Name & "." & fullType
        End If

        type = type.DeclaringType
    End While

    Return fullType
End Function

Answer 2

如果可能，不要自己发明。例如，我可以猜测MB.GetCurrentMethod() 将读取堆栈跟踪以确定方法名称（这很慢！）。

你应该检查属性CallerMemberName。 CallerFilePath & CallerLineNumber 满足您的需求。它们由编译器填充，因此不会遇到任何性能问题。

见： https://blog.codeinside.eu/2013/11/03/caller-information-with-net-4-5-or-who-touched-the-function/