Proprietà ProjectItem.FileCodeModel

Articolo
09/12/2008

Aggiornamento: novembre 2007

Ottiene l'oggetto FileCodeModel per l'elemento di progetto.

Spazio dei nomi: EnvDTE
Assembly: EnvDTE (in EnvDTE.dll)

Sintassi

ReadOnly Property FileCodeModel As FileCodeModel

Dim instance As ProjectItem
Dim value As FileCodeModel

value = instance.FileCodeModel

FileCodeModel FileCodeModel { get; }

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

function get FileCodeModel () : FileCodeModel

Valore proprietà

Tipo: EnvDTE.FileCodeModel

Un oggetto FileCodeModel.

Note

Un oggetto FileCodeModel viene restituito solo per gli elementi di progetto che costituiscono file di codice e nei progetti che implementano il modello di codice di Visual Studio.

Esempi

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

Autorizzazioni

Attendibilità totale per il chiamante immediato. Impossibile utilizzare questo membro in codice parzialmente attendibile. Per ulteriori informazioni, vedere Utilizzo di librerie da codice parzialmente attendibile.