Reference3.DTE - свойство
Обновлен: Ноябрь 2007
Возвращает объект расширения верхнего уровня.
Пространство имен: VSLangProj80
Сборка: VSLangProj80 (в VSLangProj80.dll)
Синтаксис
'Декларация
ReadOnly Property DTE As DTE
'Применение
Dim instance As Reference3
Dim value As DTE
value = instance.DTE
DTE DTE { get; }
property DTE^ DTE {
DTE^ get ();
}
function get DTE () : DTE
Значение свойства
Тип: EnvDTE.DTE
Объект DTE.
Реализации
Заметки
В Visual Studio объект DTE является корневым объектом модели автоматизации, который в других объектных моделях часто называется "Приложение".
Примеры
В данном примере демонстрируется способ достижения объекта DTE из объекта Reference3. Перед выполнением этого примера откройте проект Visual Basic, Visual C# или Visual J#. О том, как выполнить этот пример в качестве надстройки, см. в разделе Практическое руководство. Компиляция и выполнение примеров кода модели объектов автоматизации.
Путь по умолчанию для добавляемой ссылки (adodb.dll): <корневая папка установки>\Program Files\Microsoft.NET\Primary Interop Assemblies. Замените <путь к файлу> в примере этим или другим подходящим путем.
Imports VSLangProj
Imports VSLangProj2
Imports VSLangProj80
Public Sub OnConnection(ByVal application As Object,_
ByVal connectMode As ext_ConnectMode, ByVal addInInst As Object, _
ByRef custom As Array) Implements IDTExtensibility2.OnConnection
applicationObject = CType(application, DTE2)
addInInstance = CType(addInInst, AddIn)
ReachDTEObject(applicationObject)
End Sub
Public Sub ReachDTEObject(ByVal dte As DTE2)
' The first project is a Visual Basic, C#, or J# project.
Dim vsProject As VSProject2 = _
CType(applicationObject.Solution.Projects.Item(1).Object, _
VSProject2)
Dim aRef As Reference3
' Replace the <file path> with an actual file path.
aRef = CType(vsProject.References.Add_
("<file path>\adodb.dll"), Reference3)
MsgBox("Added a reference named: " & aRef.Name.ToString())
MsgBox("Name of the containing solution for " & aRef.Name & _
vbCr & "reached through the DTE object is: " & vbCr & _
aRef.DTE.Solution.FullName.ToString())
End Sub
using System.Windows.Forms;
using VSLangProj;
using VSLangProj2;
using VSLangProj80;
public void OnConnection(object application,
ext_ConnectMode connectMode, object addInInst, ref Array custom)
{
applicationObject = (DTE2)application;
addInInstance = (AddIn)addInInst;
ReachDTEObject(((DTE2)applicationObject));
}
public void ReachDTEObject(DTE2 dte)
{
// The first project is a Visual Basic, C#, or J# project.
VSProject2 vsProject =
((VSProject2)(applicationObject.Solution.Projects.Item(1).Object));
Reference3 aRef = null;
// Replace <file path> with an actual file path.
aRef = (Reference3)vsProject.References.Add
((@"<file path>\adodb.dll"));
MessageBox.Show ("Added a reference named: "
+ aRef.Name.ToString());
MessageBox.Show("Name of the containing solution for "
+ aRef.Name + "\n" + "reached through the DTE object is: " + "\n"
+ aRef.DTE.Solution.FullName.ToString());
}
Разрешения
- Полное доверие для непосредственно вызывающего метода. Этот член не может быть использован частично доверенным кодом. Дополнительные сведения см. в разделе Использование библиотек из не вполне надежного кода.