ProjectItem.FileCodeModel الخاصية
Gets the FileCodeModel كائن for the مشروع العنصر.
مساحة الاسم: EnvDTE
التجميع: EnvDTE (في EnvDTE.dll)
بناء الجملة
'إقرار
ReadOnly Property FileCodeModel As FileCodeModel
Get
FileCodeModel FileCodeModel { get; }
property FileCodeModel^ FileCodeModel {
FileCodeModel^ get ();
}
abstract FileCodeModel : FileCodeModel
function get FileCodeModel () : FileCodeModel
قيمة الخاصية
النوع: EnvDTE.FileCodeModel
كائن FileCodeModel .
ملاحظات
A FileCodeModel كائن هو returned فقط for مشروع عناصر that are تعليمات برمجية ملفات و في مشاريع that implement the Visual Studio تعليمات برمجية model.
أمثلة
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.
- الثقة الكاملة للمتصل الفوري. يتعذر استخدام هذا العضو بواسطة التعليمات البرمجية الموثوق بها جزئيًا. لمزيد من المعلومات، راجع باستخدام مكتبات من تعليمات برمجية موثوق بها جزئي.