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

아티클
08/20/2008

업데이트: 2007년 11월

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

코드의 구조를 분석합니다.
코드를 문서화하기 위한 기초로 사용할 수 있습니다.

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

네임스페이스는 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