ProjectItem 接口
表示项目中的一个项。
命名空间: EnvDTE
程序集: EnvDTE(在 EnvDTE.dll 中)
语法
声明
<GuidAttribute("0B48100A-473E-433C-AB8F-66B9739AB620")> _
Public Interface ProjectItem
[GuidAttribute("0B48100A-473E-433C-AB8F-66B9739AB620")]
public interface ProjectItem
[GuidAttribute(L"0B48100A-473E-433C-AB8F-66B9739AB620")]
public interface class ProjectItem
[<GuidAttribute("0B48100A-473E-433C-AB8F-66B9739AB620")>]
type ProjectItem = interface end
public interface ProjectItem
ProjectItem 类型公开以下成员。
属性
名称 | 说明 | |
---|---|---|
Collection | 获取一个 ProjectItems 集合,该集合包含支持此属性的 ProjectItem 对象。 | |
ConfigurationManager | 获取此 ProjectItem 的 ConfigurationManager 对象。 | |
ContainingProject | 获取项目承载ProjectItem。 | |
Document | 获取Document与该项目,如果存在一个关联。 | |
DTE | 获取顶级扩展性对象。 | |
Extender | 获取所请求Extender是否可用于此对象。 | |
ExtenderCATID | 获取对象的扩展程序类别 ID (CATID)。 | |
ExtenderNames | 获取对象的可用扩展程序的列表。 | |
FileCodeModel | 获取FileCodeModel项目项的对象。 | |
FileCount | 获取与关联的文件数ProjectItem。 | |
FileNames | 获取与项目项关联的文件的完整路径和名称。 | |
IsDirty | 基础结构。 仅供 Microsoft 内部使用。 | |
IsOpen | 获取一个指示项目项是否在特定视图类型中打开的值。 | |
Kind | 获取指示对象种类或类型的 GUID 字符串。 | |
Name | 获取或设置对象名称。 | |
Object | 获取可以在运行时由名称访问的对象。 | |
ProjectItems | 获取ProjectItems对象。 | |
Properties | 获取一个属于对象的所有属性的集合。 | |
Saved | 获取或设置一个值,该值指示对象自上次保存或打开后是否已修改。 | |
SubProject | 如果项目项是根的子项目,则SubProject属性将返回Project子项目的对象。 |
页首
方法
名称 | 说明 | |
---|---|---|
Delete | 从其项目和其存储中移除项。 | |
ExpandView | 展开的视图解决方案资源管理器以显示项目项。 | |
Open | 此时将打开ProjectItem中指定的视图。 | |
Remove | 从集合中移除项目项。 | |
Save | 保存项目或项目项。 | |
SaveAs | 保存项目项。 |
页首
示例
' Before running, create a new project or open an existing project.
Sub ListProj()
Dim proj As Project = DTE.ActiveSolutionProjects(0)
Dim win As Window = _
DTE.Windows.Item(Constants.vsWindowKindCommandWindow)
ListProjAux(proj.ProjectItems(), 0)
End Sub
Sub ListProjAux(ByVal projitems As ProjectItems, ByVal Level As Integer)
Dim projitem As ProjectItem
For Each projitem In projitems
MsgBox("Project item: " & projitem.Name, Level)
' Recurse if the project item has sub-items...
Dim projitems2 As ProjectItems
projitems2 = projitem.ProjectItems
Dim notsubcoll As Boolean = projitems2 Is Nothing
If Not notsubcoll Then
ListProjAux(projitems2, Level + 1)
End If
Next
End Sub