VB中怎么调用COM组件啊

问题描述

精选答案

1.我的VB工程代码如下：

r 1）新建工程名为Project1的VB工程，接口为Class1，定义两个成员变量a和b

r 2）在Class1中添加代码

r Public a As Integer

r Public b As Integer

r Private Sub Class_Initialize()

r a = 5

r b = 9

r End Sub

r 2.我的VC工程代码如下：

r 1）在stdafx.h文件中写如下代码

r #include <comdef.h>

r #import C:

Documents and Settings

user

桌面

VB

Project1.dll

r using namespace Project1;

r 2）在CPP源文件中写如下调用COM代码

r ::CoInitialize(NULL);

r _Class1Ptr c1 = NULL;

r c1.CreateInstance(Project1.Class1);

r short sA = c1->a;

r short sB = c1->b;

r CString str = _T();

r str.Format(_T(a=%d, b=%d),sA,sB);

r ::CoUninitialize();