Command.AddControl 方法
建立命令的持續性 (Persistent) 命令列控制項。
命名空間： EnvDTE
組件： EnvDTE (在 EnvDTE.dll 中)
語法
'宣告
Function AddControl ( _
Owner As Object, _
Position As Integer _
) As Object
Object AddControl(
Object Owner,
int Position
)
Object^ AddControl(
[InAttribute] Object^ Owner,
[InAttribute] int Position
)
abstract AddControl :
Owner:Object *
Position:int -> Object
function AddControl(
Owner : Object,
Position : int
) : Object
參數
Owner
類型：Object必要項。 要加入新命令列控制項的 CommandBar 物件。
Position
類型：Int32選擇項。 在命令列中要放置新控制項的索引位置，從 1 開始。
傳回值
類型：Object
CommandBarControl 物件。
備註
環境將控制項和它的位置，讓根據命令的 ContextUIGUIDs ，表示所提供的增益集未載入時，或其對 QueryStatus Method 的回應，當它載入時。
範例
Imports Microsoft.Office.Core
Sub AddControlExample()
' Before running, you must add a reference to
' Microsoft.VisualStudio.CommandBars. Also,
' for this example to work correctly, there should be an add-in
' available in the Visual Studio environment.
Dim cmds As Commands
Dim cmdobj As Command
Dim customin, customout As Object
Dim cmdbarobj As CommandBar
Dim colAddins As AddIns
' Set references.
colAddins = DTE.AddIns()
cmds = DTE.Commands
cmdobj = cmds.Item("File.NewFile")
' Create a toolbar and add the File.NewFile command to it.
cmdbarobj = cmds.AddCommandBar("MyCmdBar", vsCommandBarType.vsCommandBarTypeToolbar)
MsgBox("Commandbar name: " & cmdbarobj.Name)
cmdobj.AddControl(cmdbarobj)
cmds.AddNamedCommand(colAddins.Item(1), "MyCommand", "Button Text", "Some tooltip", True)
End Sub
.NET Framework 安全性
- 完全信任立即呼叫者。這個成員無法供部分信任的程式碼使用。如需詳細資訊，請參閱從部分受信任程式碼使用程式庫。