VCProject::AddActiveXReference Method (String^, Int32, Int32, Int32, String^)
Adds an ActiveX (COM) reference to the project.
Assembly: Microsoft.VisualStudio.VCProjectEngine (in Microsoft.VisualStudio.VCProjectEngine.dll)
Object^ AddActiveXReference( String^ typeLibGuid, int majorVersion, int minorVersion, int localeID, String^ wrapper )
Parameters
- typeLibGuid
-
Type:
System::String^
A string representing the type library GUID.
- majorVersion
-
Type:
System::Int32
An integer representing the major version number.
- minorVersion
-
Type:
System::Int32
An integer representing the minor version number.
- localeID
-
Type:
System::Int32
An integer representing the locale id.
- wrapper
-
Type:
System::String^
A string representing the wrapper name. Can be blank.
One way to obtain the parameters for this method is to add the desired reference to your project, save the project, and then examine its .vcxproj file. The parameters are listed under "ActiveXReference."
See How to: Compile Example Code for Project Model Extensibility for information about how to compile and run this example.
AddActiveXReference adds an ActiveX type library reference to your project based on the parameters that you supply, if it is possible.
Imports EnvDTE Imports System.Diagnostics Imports Microsoft.VisualStudio.VCProjectEngine Public Module Module1 Sub Test() Dim prj As VCProject Dim tlguid, wrapper As String Dim majver, minver, lcid As Integer ' Add the following values: ' tlguid = The guid for the EnvDTE COM type library. ' wrapper = The wrapper name for EnvDTE, taken from .vcxproj file. ' majver, minver = The major and minor versions of DTE, ' taken from the .vcxproj file. ' lcid = The localization ID. 1033 is English. ' Each language has its own LCID. tlguid = "{80CC9F66-E7D8-4DDD-85B6-D9E6CD0E93E2}" wrapper = "primary" majver = 7 minver = 0 lcid = 1033 prj = DTE.Solution.Projects.Item(1).Object If prj.CanAddActiveXReference(tlguid, majver, minver, lcid, _ wrapper) Then prj.AddActiveXReference(tlguid, majver, minver, lcid, wrapper) Else MsgBox("Cannot add the specified ActiveX typelib reference.") End If End Sub End Module