ProjectItem.FileCodeModel Özellik

Makale
10/29/2012

Alır FileCodeModel proje öğesi için nesne.

Ad alanı: EnvDTE
Derleme: EnvDTE (EnvDTE.dll içinde)

Sözdizimi

'Bildirim
ReadOnly Property FileCodeModel As FileCodeModel

FileCodeModel FileCodeModel { get; }

property FileCodeModel^ FileCodeModel {
    FileCodeModel^ get ();
}

abstract FileCodeModel : FileCodeModel

function get FileCodeModel () : FileCodeModel

Özellik Değeri

Tür: EnvDTE.FileCodeModel
FileCodeModel nesnesi

Notlar

A FileCodeModel nesne kodu dosyalarıdır proje öğeleri ve uygulayan projeleri döner Visual Studio kod modeli.

Örnekler

Sub FileCodeModelExample()
   ' This goes through the current document using the Visual Studio 
   ' Code Model to add documentation style comments to each function 
   ' similar to  the Visual C# documenation comments.
   Dim projitem As ProjectItem = DTE.ActiveDocument.ProjectItem
   Dim filecm As FileCodeModel = projitem.FileCodeModel
   Dim celt As CodeElement = filecm.CodeElements.Item(1)
   Dim celttype As CodeType = CType(celt, CodeType)
   Dim ep As EditPoint = celttype.GetStartPoint(vsCMPart.vsCMPartHeader).CreateEditPoint()

   For Each celt In celttype.Members
      If (celt.Kind = vsCMElement.vsCMElementFunction) Then
         ' Get Params.
         Dim codefun As CodeFunction = celt
         ep.MoveToPoint(codefun.GetStartPoint(vsCMPart.vsCMPartHeader))
         Dim params As CodeElements = codefun.Parameters

         ' Do comment.
         ep.Insert(Microsoft.VisualBasic.Constants.vbCrLf)
         ep.LineUp()
         ' ep.Indent(Nothing) ' shouldn't need to pass Nothing.
         ep.Insert(Microsoft.VisualBasic.Constants.vbTab & "''' <summary>")
         ep.Insert(Microsoft.VisualBasic.Constants.vbCrLf)
         ep.Insert(Microsoft.VisualBasic.Constants.vbTab & "''' Summary of this sub.")
         ep.Insert(Microsoft.VisualBasic.Constants.vbCrLf)
         ep.Insert(Microsoft.VisualBasic.Constants.vbTab & "''' <summary>")
         ep.Insert(Microsoft.VisualBasic.Constants.vbCrLf)
         ep.Insert(Microsoft.VisualBasic.Constants.vbTab & "''' ")

         Dim celt2 As CodeElement
         Dim cp As CodeParameter
         For Each celt2 In params
            cp = celt2
            ep.Insert("<param name=" & cp.Name & "></param>")
            ep.Insert(Microsoft.VisualBasic.Constants.vbCrLf)
            ep.Insert(Microsoft.VisualBasic.Constants.vbTab & "''' ")
         Next
      End If
   Next
End Sub

.NET Framework Güvenliği

Anında arayanlar için tam güven. Bu üye kısmen güvenilen kodla kullanılamaz. Daha fazla bilgi için bkz. Kısmen güvenilen kod kitaplıklarını kullanma.

Ayrıca bkz.

Başvuru

ProjectItem Arabirim

EnvDTE Ad Alanı

Diğer Kaynaklar

Proje ve çözümleri denetleme

Aracılığıyla paylaş