【PB】pb9中COM的创建和调用

前端之家收集整理的这篇文章主要介绍了【PB】pb9中COM的创建和调用前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
创建方法

  1,创建一个workspace

  2,在workspace下创建一个application ( 假设名字为:myapp)

  3,创建custom class,

在custom class 中可以创建 function

  4,创建 project

   要选择 COM/MTS/COM+ Component Wizard

   填写 Project 名

   选择一个 custom class

   设置 Interface Name

   设置 Program ID string 

   默认是 PB90.[custom class 的名字],我们可以修改(假设修改为PB90.cus_class7,这个名字就是在pb中调用时的类名)

   设置 Com Class Name

   默认为COClass_[custom class的名字] (假设为COClass_cus_class7,这个名字就是在vb中调用时的类名)

   将 Register Components Upon Successful build 选中

  5,生成dll

   选中新创建的project,点击右键,然后点击Deploy

  这样就完成创建com的工作。

  调用方法

1,vb中

  创建一个vb项目,添加引用 PB90 generated typelib for:myapp.dll

注意红字部分,为输出的dll文件名,一般和application名义相同。

  写代码

Dim a As new myapp.COClass_cus_class7
MsgBox a.dog

显然是通过   [application name].[Com ClassName]  来使用这个com。

2,pb中

int intValue
oleobject objOle
objOle
= create OLEObject
intValue
= objOle.connecttonewobject( " PB90.cus_class7 " )
if intValue = 0 then
string v
v
= objOle.dog()
MessageBox(
" ss " ,v)
end if

显然是通过 [Program ID String] 来使用这个com的。

通过测试发现在vb和在pb中的调用方法是不一样的。

猜你在找的VB相关文章