急，PB调用 vb6 activeXdll 遇到的问题，感谢各位大侠...........................................

pantung 2005-08-23 10:58:50

activeX dll里面有class和form。

现在调用了class 里的test 函数，则form1.show，可是pb调用是窗体无法打开

如果test函数直接返回msgbox“hi”，则pb调用正常

－－－－－－－－－－－－－－－－－－
问题：1> 是不是和什么窗口句柄有关？
2> pb调用 activeX dll 有无别的思路？

感谢各位大侠，分不够再加.
再次感谢

相关链接： http://community.csdn.net/Expert/topic/4223/4223977.xml?temp=.1873285

...全文

81 11 打赏收藏转发到动态举报

写回复

用AI写文章

11 条回复

切换为时间正序

请发表友善的回复…

发表回复

zhujiechang 2005-08-25

打赏
举报

PB需要的接口VB本身是无法提供的.结果会是能加载进去却不能执行.

sendwb 2005-08-23

打赏
举报

A_Tong.Tong_C
DLL 文件名.类名

sendwb 2005-08-23

打赏
举报

Public function Test()as long
Dim fForm As New FrmTT
load fForm '加上这句看看
fForm.Show vbModal
test=1
End function

sendwb 2005-08-23

打赏
举报

OLEObject lole_SJComm
Long ll_Rtn
lole_SJComm = Create OLEObject
SharedObjectRegister("A_Tong.Tong_C" ,"thread1" )
SharedObjectGet ( "thread1" ,lole_SJComm )
ll_Rtn = lole_SJComm.ConnectToNewObject("A_Tong.Tong_C")

Op_C=lole_SJComm.Post OpComm(ls_com)

pantung 2005-08-23

打赏
举报

感谢各位大侠

pb该怎么调用vb的activeX dll 呢？

pantung 2005-08-23

打赏
举报

感谢各位大侠

pb该怎么调用vb的activeX dll 呢？

balloonman2002 2005-08-23

打赏
举报

Public Sub Test()
Dim fForm As New FrmTT
load fForm '加上这句看看
fForm.Show vbModal
End Sub

pantung 2005-08-23

打赏
举报

activeX dll工程
里abcde 类模块
Public Sub Test()
Dim fForm As New FrmTT 'frmTT是已经建立的form
fForm.Show vbModal
End Sub
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
FrmTT 窗体里是各个控件相关代码

谢谢各位高手，大侠。