vb和vc混合编程实例（ocx和dll）.pdfVIP

和混合编程实例（和）（转载）

vbvcocxdll

前⾔:

由于以前⽤和封装过和⽂件或者在⽹上下的类若重新编写和封装会很费时和费⼒如简单易⽤，对数据库操

vbvc++dllocx.;.vb

作通⽤类进⾏封装现在中可以引⽤之。另外由于执⾏效率⾼，某些较复杂算法或低层处理可在中进⾏封装这样经常要

.vcvcvc.

求混⽤下⾯是实际中个例⼦记分各⾃创建和调⽤四个部分

.,vb6.0,vc++

能封装和⽂件注意是⼀种动态，在被调⽤环境中不仅引⽤这个，⽽且还要引⽤这个所引⽤的

1:vbocxactivedll.activedlldlldll

其它⽂件如是个数据库操作类封装，它引⽤了接⼝其创建略具体引⽤见后

,DBCommom.dllAdo).,.

中做时注意要提供接⼝，供其它程式调⽤

2.vcdll.

创建如项⽬

awin32Dynamic-inkibraryCMyTestDll

加⼊成员在中申明中实现

bfunction(.h.cpp)

//取电脑名称

intCMyTestDll::GetComputerNameE(PTSTRcomputer_name)

{

DWORDbuf=255;

PTSTRstrname=newchar[buf];

if(GetComputerName(strname,buf)!=0)

{

strcpy(computer_name,strname);

return1;

}

return0;

}

//计算两个值之和

intCMyTestDll::Sum(inta,intb)

{

return(a+b);

}

⼀定要加上⽂件，并在在其中定义导出各个及参数否则不能被调⽤

c.CMyTestDll.deffunction,

EXPORTS

GetComputerNameE@1;

Sum@2;@3;

编译成便可以最好每个定义为返回值

d.dll.functionint.

引⽤中和普通函数⼀样的对应的

3.vbvcdllAPI.(vblongvcint)

引⽤

PrivateDeclareFunctionGetComputerNameEib⽬录\MyTestDll.dll(ByValstrNameAsString)Asong

PrivateDeclareFunctionSumib⽬录\\MyTestDll.dll(ByValgAsong,ByValbAsong)A