Reference3.SubType Свойство

Определение

Задает или получает подтип сборки.

public:
 property System::String ^ SubType { System::String ^ get(); void set(System::String ^ value); };
public:
 property Platform::String ^ SubType { Platform::String ^ get(); void set(Platform::String ^ value); };
[System.Runtime.InteropServices.DispId(121)]
public string SubType { [System.Runtime.InteropServices.DispId(121)] get; [System.Runtime.InteropServices.DispId(121)] set; }
[<System.Runtime.InteropServices.DispId(121)>]
[<get: System.Runtime.InteropServices.DispId(121)>]
[<set: System.Runtime.InteropServices.DispId(121)>]
member this.SubType : string with get, set
Public Property SubType As String

Значение свойства

String

Строковое значение, представляющее подтип сборки. Для проектов SQL Server Visual Basic или Visual C# это свойство имеет значение SQLCLR, если ссылка была получена из целевого SQL Server.

Атрибуты

Примеры

В этом примере добавляется ссылка на открытый Visual Basic или Visual C# проект и отображается подтип ссылки, если он существует. Чтобы запустить этот пример в качестве надстройки, см. статью как скомпилировать и запустить примеры кода объектной модели автоматизации.

Пути по умолчанию для добавляемой ссылки: <drive> : \Program FILES\MICROSOFT SQL Server\90\COM. Замените <file path> в примере этим или другим соответствующим путем к файлу.

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)  
    DisplaySubType(applicationObject)  
End Sub  
Sub DisplaySubType(ByVal dte As DTE2)  
    Dim aProject As Project  
    Dim aVSProject As VSProject2  
    aProject = applicationObject.Solution.Projects.Item(1)  
    aVSProject = _  
    CType(applicationObject.Solution.Projects.Item(1).Object, _  
    VSProject2)  
    ' Add an Assembly reference and display its subtype.  
    Dim newRef As Reference3  
    ' Replace <file path> with an actual file path.  
    newRef = CType(aVSProject.References.Add _  
("<file path>\sqldistx.dll "), Reference3)  
    MsgBox("Added an assembly reference, named: " & newRef.Name)  
    MsgBox("The SubType of " & newRef.Name & " is " _  
    & newRef.SubType)  
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;  
    DisplaySubType(((DTE2)applicationObject));  
}  
public void DisplaySubType(DTE2 dte)  
{  
    // The first project is a Visual Basic or C# project.  
VSProject2 vsProject =  
((VSProject2)(applicationObject.Solution.Projects.Item(1).Object));  
    Reference3 aRef = null;  
    // Add an Assembly reference and display its subtype.  
    // Replace <file path> with an actual file path.  
    aRef = (Reference3)vsProject.References.Add  
((@"<file path>\sqldistx.dll"));  
    MessageBox.Show("Added reference, named: "  
+ aRef.Name);  
MessageBox.Show("The SubType of " + aRef.Name + " is "  
+ aRef.SubType);  
}  

Комментарии

Это свойство полезно только для SQL Server Visual Basic или Visual C# проектов.

Применяется к