ProjectItem.FileCodeModel (Propiedad)
Obtiene el objeto FileCodeModel para el elemento de proyecto.
Espacio de nombres: EnvDTE
Ensamblado: EnvDTE (en EnvDTE.dll)
Sintaxis
'Declaración
ReadOnly Property FileCodeModel As FileCodeModel
Get
FileCodeModel FileCodeModel { get; }
property FileCodeModel^ FileCodeModel {
FileCodeModel^ get ();
}
abstract FileCodeModel : FileCodeModel
function get FileCodeModel () : FileCodeModel
Valor de propiedad
Tipo: EnvDTE.FileCodeModel
Un objeto FileCodeModel.
Comentarios
Un objeto FileCodeModel solo se devuelve para los elementos de proyecto que son archivos de código y en proyectos que implementan el modelo de código de Visual Studio.
Ejemplos
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
Seguridad de .NET Framework
- Plena confianza para el llamador inmediato. Un código de confianza parcial no puede utilizar este miembro. Para obtener más información, vea Utilizar bibliotecas de código que no es de plena confianza.