VCProject.AddActiveXReference Method (String, Int32, Int32, Int32, String)


Adds an ActiveX (COM) reference to the project.

Namespace:   Microsoft.VisualStudio.VCProjectEngine
Assembly:  Microsoft.VisualStudio.VCProjectEngine (in Microsoft.VisualStudio.VCProjectEngine.dll)

object AddActiveXReference(
	string typeLibGuid,
	int majorVersion,
	int minorVersion,
	int localeID,
	string wrapper


Type: System.String

A string representing the type library GUID.

Type: System.Int32

An integer representing the major version number.

Type: System.Int32

An integer representing the minor version number.

Type: System.Int32

An integer representing the locale id.

Type: System.String

A string representing the wrapper name. Can be blank.

Return Value

Type: System.Object

An object representing the project reference.

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)
            MsgBox("Cannot add the specified ActiveX typelib reference.")
        End If
    End Sub
End Module
Return to top