ToolBoxItems 接口
包含**“工具箱”**选项卡中的所有项。
命名空间: EnvDTE
程序集: EnvDTE(在 EnvDTE.dll 中)
语法
声明
<GuidAttribute("395C7DFB-F158-431C-8F43-DDA83B4EF54E")> _
Public Interface ToolBoxItems _
Inherits IEnumerable
[GuidAttribute("395C7DFB-F158-431C-8F43-DDA83B4EF54E")]
public interface ToolBoxItems : IEnumerable
[GuidAttribute(L"395C7DFB-F158-431C-8F43-DDA83B4EF54E")]
public interface class ToolBoxItems : IEnumerable
[<GuidAttribute("395C7DFB-F158-431C-8F43-DDA83B4EF54E")>]
type ToolBoxItems =
interface
interface IEnumerable
end
public interface ToolBoxItems extends IEnumerable
ToolBoxItems 类型公开以下成员。
属性
名称 | 说明 | |
---|---|---|
Count | 获取一个值,该值指示 ToolBoxItems 集合中对象的数目。 | |
DTE | 获取顶级扩展性对象。 | |
Parent | 获取 ToolBoxItems 对象的直接父对象。 | |
SelectedItem | 获取“工具箱”选项卡中当前选定的项(如果有)。 |
页首
方法
名称 | 说明 | |
---|---|---|
Add | 创建新项并将其添加到“工具箱”中。 | |
GetEnumerator() | 返回一个循环访问集合的枚举数。 (继承自 IEnumerable。) | |
GetEnumerator() | 获取集合中项的枚举数。 | |
Item | 返回 ToolBoxItems 集合中的一个 ToolBoxItem 对象。 |
页首
备注
ToolBoxItems 集合的默认属性是 Item,可以按名称或序号为这些项建立索引。
示例
Sub ToolBoxItemsExample()
Dim tlBox As ToolBox
Dim tbxTabs As ToolBoxTabs
Dim tbxTab As ToolBoxTab
Dim tbxItems As ToolBoxItems
Try
' Create an object reference to the IDE's ToolBox object and
' its tabs.
tlBox = DTE.Windows.Item(Constants.vsWindowKindToolbox).Object
tbxTabs = tlBox.ToolBoxTabs
' Add a new tab to the ToolBox and select it.
tbxTab = tbxTabs.Add("New ToolBox Tab")
tbxTab.Activate()
' Add new items to the new ToolBox tab. This shows two
' different ways to index the ToolBox tabs. The third item
' added is a .NET component that contains a number of
' Web-related controls.
tbxTab.ToolBoxItems.Add("Text Item", "Hello world")
tbxTab.ToolBoxItems.Add("HTML Item", "Hello world", _
vsToolBoxItemFormat.vsToolBoxItemFormatHTML)
tbxTabs.Item("New ToolBox Tab").ToolBoxItems.Add("DotNET _
Component", "C:\WINNT\Microsoft.NET\Framework\v1.1.4322 _
\System.Web.dll", vsToolBoxItemFormat. _
vsToolBoxItemFormatDotNETComponent)
' Use the ToolboxItems collection to access all the items under
' a ToolBox tab.
tbxItems = tbxTab.ToolBoxItems
' List number of ToolboxItems in a ToolBoxTab.
MsgBox("Number of items in " & tbxTabs.Item(1).Name & " tab: _
" & tbxItems.Count)
' Select the second item in the ToolboxItems collection and
' delete it.
tbxItems.Item(2).Select()
If (MsgBox("Delete second ToolBox item?", vbYesNo) = vbYes) _
Then
tbxItems.SelectedItem.Delete()
MsgBox("Number of items in " & tbxTabs.Item(1).Name & " _
tab: " & tbxItems.Count)
End If
Catch ex As System.Exception
MsgBox("ERROR: " & ex.Message)
End Try
End Sub