ProjectItem.FileCodeModel 屬性

定義

取得 FileCodeModel 專案專案的物件。

public:
 property EnvDTE::FileCodeModel ^ FileCodeModel { EnvDTE::FileCodeModel ^ get(); };
public:
 property EnvDTE::FileCodeModel ^ FileCodeModel { EnvDTE::FileCodeModel ^ get(); };
[System.Runtime.InteropServices.DispId(117)]
public EnvDTE.FileCodeModel FileCodeModel { [System.Runtime.InteropServices.DispId(117)] get; }
[<System.Runtime.InteropServices.DispId(117)>]
[<get: System.Runtime.InteropServices.DispId(117)>]
member this.FileCodeModel : EnvDTE.FileCodeModel
Public ReadOnly Property FileCodeModel As FileCodeModel

屬性值

FileCodeModel

FileCodeModel 物件。

屬性

範例

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  

備註

只有在程式 FileCodeModel 代碼檔案的專案專案,以及在執行程式碼模型的專案中,才會傳回物件 Visual Studio 。

適用於