更新:2007 年 11 月
表示在集成开发环境 (IDE) 中以标准工具窗口显示层次结构树数据的项(如“解决方案资源管理器”)。
命名空间: EnvDTE
程序集: EnvDTE(在 EnvDTE.dll 中)
语法
声明
<GuidAttribute("FBD0D024-09CD-4D9F-9E2B-CACD628426A5")> _
Public Interface UIHierarchyItem
用法
Dim instance As UIHierarchyItem
[GuidAttribute("FBD0D024-09CD-4D9F-9E2B-CACD628426A5")]
public interface UIHierarchyItem
[GuidAttribute(L"FBD0D024-09CD-4D9F-9E2B-CACD628426A5")]
public interface class UIHierarchyItem
public interface UIHierarchyItem
示例
Sub UIHierarchyItemExample()
'Reference the UIHierarchy, UIHierarchyItem, and OutputWindow objects.
Dim UIH As UIHierarchy = _
DTE.Windows.Item(Constants.vsWindowKindMacroExplorer).Object
Dim samples As UIHierarchyItem = UIH.GetItem("Macros\Samples")
Dim OWPane As OutputWindowPane = GetOutputWindowPane("List Macros")
Dim file As UIHierarchyItem
OWPane.Clear()
For Each file In samples.UIHierarchyItems
OWPane.OutputString(file.Name & _
Microsoft.VisualBasic.Constants.vbCrLf)
Dim macro As UIHierarchyItem
For Each macro In file.UIHierarchyItems
OWPane.OutputString(" " & macro.Name & _
Microsoft.VisualBasic.Constants.vbCrLf)
Next
Next
End Sub
Function GetOutputWindowPane(ByVal Name As String, Optional ByVal show _
As Boolean = True) As OutputWindowPane
Dim win As Window = _
DTE.Windows.Item(EnvDTE.Constants.vsWindowKindOutput)
If show Then win.Visible = True
Dim ow As OutputWindow = win.Object
Dim owpane As OutputWindowPane
Try
owpane = ow.OutputWindowPanes.Item(Name)
Catch e As System.Exception
owpane = ow.OutputWindowPanes.Add(Name)
End Try
owpane.Activate()
Return owpane
End Function