Visual Basic에서 하위 클래스 이름을 얻는 방법

Question

TRY..CATCH가 실패한 경우 정보를 내 Exception 데이터베이스에 쓰는 LogException이라는 Visual Basic 메서드가 있습니다. 그 방법은 다음의 파라미터를 갖는다 :

1. methodLocation;
2. methodName;
3. 예외; 내가 방법을 호출 할 때

, 나는 다음과 같은 코드를 사용합니다 : 나는 "테스트"라는 클래스 내에서 "Insert_Test"라는 방법이 코드를 호출하는 경우, 따라서

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

를 I 첫 번째 매개 변수는 "Test"를 받고 두 번째 매개 변수는 "Insert_Test"를 받고 세 번째 매개 변수는 throw 된 예외에서 정확한 세부 정보를 수신 할 것으로 기대합니다.

"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)

편집 : 영업 이익은 실제로 중첩 클래스를 사용하는 것처럼 그것은 나타납니다, 상속되지 수업. 그런 경우에 제공된 코드로 조정할 수 있어야합니다 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()이 stacktrace를 읽어 메소드 이름을 결정할 것이라고 추측 할 수 있습니다 (속도가 느림!).

속성이 CallerMemberName인지 확인해야합니다. CallerFilePath & CallerLineNumber 귀하의 필요를 충족 시키십시오. 컴파일러에 의해 채워 지므로 성능 문제가 발생하지 않습니다.

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