문서를 영문으로 보려면 영문 확인란을 선택하세요. 마우스 포인터를 텍스트 위로 이동시켜 팝업 창에서 영문 텍스트를 표시할 수도 있습니다.
번역
영문
Visual Studio 2017을 사용하는 것이 좋습니다.

방법: CodeModel 개체를 사용하여 Visual Basic 코드 분석

코드 파일의 텍스트를 구문 분석하는 복잡한 작업 대신 간편하게 CodeModel2 개체 계층을 사용할 수 있습니다. CodeModel2 개체를 사용하여 다음과 같은 작업을 수행할 수 있습니다.

  • 코드의 구조를 분석합니다.

  • 코드를 문서화하기 위한 기초로 사용할 수 있습니다.

아래에서 설명하는 단계를 수행하려면 매크로 통합 개발 환경에 액세스하여 매크로 프로젝트를 만드는 방법을 알고 있어야 합니다. 자세한 내용은 Add Macro Project Dialog Box를 참조하십시오.

네임스페이스는 CodeModel2 개체의 루트 수준에 있거나 다른 CodeNamespace 개체에 중첩되어 있으며 그에 따라 네임스페이스의 구문 제약 조건이 반영됩니다. 네임스페이스는 최상위 코드 블록이거나 다른 네임스페이스에 포함됩니다. 다음 절차를 수행하려면 Visual Studio IDE(통합 개발 환경)에 프로젝트가 열려 있어야 합니다.

참고 참고

표시되는 대화 상자와 메뉴 명령은 활성 설정이나 버전에 따라 도움말에서 설명하는 것과 다를 수 있습니다. 이러한 절차는 일반 개발 설정을 사용하여 개발되었습니다. 설정을 변경하려면 도구 메뉴에서 설정 가져오기 및 내보내기를 선택합니다. 자세한 내용은 Visual Studio에서 개발 설정 사용자 지정을 참조하십시오.

프로젝트에 포함된 모든 네임스페이스를 찾으려면

  • 응용 프로그램에 있는 모든 네임스페이스를 검색하기 위한 재귀 메서드를 작성합니다.

    CodeNamespace 개체의 Members 속성은 모든 CodeElements를 포함하며 네임스페이스의 첫 번째 수준에 있습니다.

    ' Macro editor
    Sub FindAllNamespaces()
       Dim cm As CodeModel
       cm = DTE.Solution.Projects.Item(1).CodeModel
    
       ' Look for all the namespaces in the CodeElements
       ' of the project.
       Dim list As String
       Dim ce As CodeElement
       For Each ce In cm.CodeElements
          If TypeOf ce Is CodeNamespace Then
             GetNamespace(CType(ce, CodeNamespace), list)
          End If
       Next
    
       MsgBox(list)
    End Sub
    
    Sub GetNamespace(ByVal ns As CodeNamespace, ByRef list As String)
       ' Add this namespace to the list.
       list &= ns.Name & ControlChars.CrLf
       Dim aspace As CodeNamespace
       Dim ce As CodeElement
       ' Look for more namespaces.
       For Each ce In ns.Members
          If TypeOf ce Is CodeNamespace Then
             GetNamespace(CType(ce, CodeNamespace), list)
          End If
       Next
    End Sub
    
    참고참고

    소스 파일과 연결된 ProjectItem 개체의 FileCodeModel 속성을 사용하면 하나의 소스 파일에 있는 모든 네임스페이스를 찾을 수 있습니다. 이 방법을 사용하려면 FindAllNamespaces 메서드를 약간 변경해야 합니다.

이전 단계를 수행하면 응용 프로그램에 정의한 네임스페이스만 반환됩니다. 모든 Visual Basic 프로젝트에는 기본 네임스페이스도 있습니다. 응용 프로그램의 모든 코드 요소는 기본 네임스페이스에 포함되지만 CodeElements 컬렉션에 네임스페이스를 위한 CodeNamespace 개체가 있는 것은 아닙니다. 모든 최상위 CodeType 요소에서 기본 네임스페이스를 검색할 수 있습니다.

프로젝트의 기본 네임스페이스를 찾으려면

  • 프로젝트의 최상위 코드 요소를 테스트합니다. CodeType인 모든 코드 요소가 프로젝트에 대한 CodeNamespace 요소를 반환합니다.

    Sub FindDefaultNamespace()
       Dim cm As CodeModel
       cm = DTE.Solution.Projects.Item(1).CodeModel
    
       Dim ce As CodeElement
       Dim ct As CodeType = Nothing
       Dim defNameSpace As CodeNamespace
       For Each ce In cm.CodeElements
          If TypeOf ce Is CodeType Then
             ct = CType(ce, CodeType)
             defNameSpace = ct.Namespace
          End If
       Next
    
       If Not IsNothing(defNameSpace) Then
          MsgBox(defNameSpace.Name)
       End If
    End Sub
    

클래스 선언과 네임스페이스는 비슷한 방법으로 검색됩니다. 클래스는 다른 클래스에 중첩될 수 있으므로 네임스페이스에 정의된 클래스와 다른 클래스에 정의된 클래스를 모두 찾을 수 있습니다.

프로젝트에 있는 모든 클래스를 찾으려면

  • 프로젝트에서 클래스 선언을 찾는 아래와 같은 재귀 메서드를 작성합니다.

    ' Macro editor
    Sub FindAllClasses()
       Dim cm As CodeModel
       cm = DTE.Solution.Projects.Item(1).CodeModel
    
       ' Look for all the namespaces and classes in the 
       ' project.
       Dim list As String
       Dim ce As CodeElement
       For Each ce In cm.CodeElements
          If (TypeOf ce Is CodeNamespace) Or (TypeOf ce Is CodeClass) Then
             ' Determine whether that namespace or class 
             ' contains other classes.
             GetClass(ce, list)
          End If
       Next
    
       MsgBox(list)
    End Sub
    
    Sub GetClass(ByVal ct As CodeElement, ByRef list As String)
       ' ct could be a namespace or a class. Add it to the list
       ' if it is a class.
       If (TypeOf ct Is CodeClass) Then
          list &= ct.Name & ControlChars.CrLf
       End If
    
       ' Determine whether there are nested namespaces or classes that 
       ' might contain other classes.
       Dim aspace As CodeNamespace
       Dim ce As CodeElement
       Dim cn As CodeNamespace
       Dim cc As CodeClass
       Dim elements As CodeElements
       If (TypeOf ct Is CodeNamespace) Then
          cn = CType(ct, CodeNamespace)
          elements = cn.Members
       Else
          cc = CType(ct, CodeClass)
          elements = cc.Members
       End If
    
       For Each ce In elements
          If (TypeOf ce Is CodeNamespace) Or (TypeOf ce Is CodeClass) Then
             GetClass(ce, list)
          End If
       Next
    End Sub
    
표시: