AddIn 介面
表示 [增益集管理員] 對話方塊中列出的增益集,並提供有關某個增益集的資訊給其他增益集物件。
命名空間: EnvDTE
組件: EnvDTE (在 EnvDTE.dll 中)
語法
'宣告
<GuidAttribute("53A87FA1-CE93-48BF-958B-C6DA793C5028")> _
Public Interface AddIn
[GuidAttribute("53A87FA1-CE93-48BF-958B-C6DA793C5028")]
public interface AddIn
[GuidAttribute(L"53A87FA1-CE93-48BF-958B-C6DA793C5028")]
public interface class AddIn
[<GuidAttribute("53A87FA1-CE93-48BF-958B-C6DA793C5028")>]
type AddIn = interface end
public interface AddIn
AddIn 型別會公開下列成員。
屬性
名稱 | 說明 | |
---|---|---|
Collection | 傳回包含支援這項屬性之 AddIn 物件的集合。 | |
Connected | 取得或設定值,指出是否已載入及連接增益集。 | |
Description | 取得或設定字串,表示 AddIn 物件的描述。 | |
DTE | 取得最上層的擴充性物件。 | |
Guid | 取得 AddIn 物件的 GUID。 | |
Name | 取得 AddIn 物件的名稱。 | |
Object | 設定或取得物件,此物件會支援所指定的 AddIn 物件。 | |
ProgID | 取得依據增益集之登錄項目的 ProgID。 | |
SatelliteDllPath | 取得包含當地語系化資源 (若有) 之 DLL 的位置。 |
回頁首
方法
名稱 | 說明 | |
---|---|---|
Remove | 從增益集集合中移除增益集,使其無法使用。 |
回頁首
備註
AddIn 物件提供關於增益集的資訊給其他的增益集。 只有註冊過的增益集會以 AddIn 物件表示。
範例
Sub AddInExample()
' For this example to work correctly, there should be an add-in
' available in the Visual Studio environment.
' Set object references.
Dim addincoll As AddIns
Dim addinobj As AddIn
' Register an add-in, check DTE Add-in count before and after the
' Update.
addincoll = DTE.AddIns
MsgBox("AddIns collection parent name: " & addincoll.Parent.Name)
MsgBox("Number of Add-ins: " & addincoll.Count)
' NOTE: Use regsvr32 for Visual C++, regasm for Visual Basic
' and Visual C#. Also, the pathname used below is an example only.
Shell("regasm F:\AddIns\RegExplore\Debug\regexplore.dll")
addincoll.Update()
MsgBox("Number of Add-ins: " & addincoll.Count)
addinobj = addincoll.Item(1)
' Connect the add-in if it is not already connected
' and list its SatelliteDLLPath and Guid.
If addinobj.Connected = False Then
addinobj.Connected = True
End If
MsgBox("Satellite DLL Path: " & addinobj.SatelliteDllPath)
MsgBox("DLL GUID: " & addinobj.Guid)
' Activates a solution add-in so that it is available, then
...' deactivates it.
addinobj = DTE.Solution.AddIns.Add(addinobj.ProgID, addinobj.Description, addinobj.Name, False)
DTE.Solution.AddIns.Item(1).Remove()
End Sub