VCProject.CanAddActiveXReference(String, Int32, Int32, Int32, String) 方法
定义
重要
一些信息与预发行产品相关,相应产品在发行之前可能会进行重大修改。 对于此处提供的信息,Microsoft 不作任何明示或暗示的担保。
获取一个值,该值指示是否要添加给定的 ActiveX (COM) 引用。
public:
bool CanAddActiveXReference(System::String ^ typeLibGuid, int majorVersion, int minorVersion, int localeID, System::String ^ wrapper);
public:
bool CanAddActiveXReference(Platform::String ^ typeLibGuid, int majorVersion, int minorVersion, int localeID, Platform::String ^ wrapper);
bool CanAddActiveXReference(std::wstring const & typeLibGuid, int majorVersion, int minorVersion, int localeID, std::wstring const & wrapper);
[System.Runtime.InteropServices.DispId(845)]
public bool CanAddActiveXReference (string typeLibGuid, int majorVersion, int minorVersion, int localeID, string wrapper);
[<System.Runtime.InteropServices.DispId(845)>]
abstract member CanAddActiveXReference : string * int * int * int * string -> bool
Public Function CanAddActiveXReference (typeLibGuid As String, majorVersion As Integer, minorVersion As Integer, localeID As Integer, wrapper As String) As Boolean
参数
- typeLibGuid
- String
一个表示类型库 GUID 的字符串。
- majorVersion
- Int32
一个表示主版本号的整数。
- minorVersion
- Int32
一个表示次版本号的整数。
- localeID
- Int32
一个表示区域设置 ID 的整数。
- wrapper
- String
一个表示包装名称的字符串。 可以为空。
返回
true 如果它将添加给定的 ActiveX 引用, false 则为,否则为。
- 属性
示例
有关如何编译和运行此示例的信息,请参阅 如何:编译 Visual C++ 代码模型扩展性的示例代码 。
CanAddActiveXReference 根据提供的参数,向项目添加 ActiveX 类型库引用(如果可能)。
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