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 | 取得包含支援此屬性之 ProjectItem 物件的 ProjectItems 集合。 | |
ConfigurationManager | 取得這個 ProjectItem 的 ConfigurationManager 物件。 | |
ContainingProject | 取得專案裝載ProjectItem。 | |
Document | 取得Document聯項目,如果有的話。 | |
DTE | 取得最上層的擴充性物件。 | |
Extender | 取得所要求之Extender是否適用於這個物件。 | |
ExtenderCATID | 取得物件的 Extender 分類 ID (CATID)。 | |
ExtenderNames | 取得物件的可用 Extender 清單。 | |
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