关于VBA的混合编程,使用VB6.0做 ActiveX Dll - 高级功能研发区 - 金字塔客服中心 - 专业程序化交易软件提供商

一直不大明白为嘛论坛上没用VB6.0混合编程的对象，真的很简单很简单

VB6.0 做ActiveX dll 是非常非常简单的。以下是举例对象

打开VB.6.0 新建工程--选择 ActiveX dll，进入里面后

第一处修改 :主菜单的工程-属性-工程名称把工程1 改为烛影摇红

第二处修改:在工程视图里面选中类模块-class1 ，将 Class1 改名为类

添加以下代码，粘贴复制就好了

Public Function huoqu_shuzu1(数组 As Variant, ByRef 传出数组 As Variant) As Boolean

ReDim 传出数组(UBound(数组))

For a = 0 To UBound(数组)

传出数组(a) = 数组(a) + 1

huoqu_shuzu1 = True

End Function

'计算5均线

Public Function jisuanjunxian5(ByVal jia1 As Single, ByVal jia2 As Single, ByVal jia3 As Single, ByVal jia4 As Single, ByVal jia5 As Single) As Single

jisuanjunxian5 = (jia1 + jia2 + jia3 + jia4 + jia5) / 5

End Function

然后在主菜单中文件 --生成烛影摇红记住生成的位置

下一步就在这个位置里面找到生成的烛影摇红.dll 在win7下直接双击就可以注册在别的系统要手动注册，

注册方法在开始菜单底下运行 regsvr32 D:\烛影摇红.dll 就好了

切换到金字塔到与公式新建这个页面的底下有个公式这两个字，与它相同的还有高级，选中高级 --模块- Function

停止运行 Function 就是上面的那个方块点下就好了

'复制粘贴以下代码

Sub test4()

Dim zyyh '创建一个变量

Set zyyh = CreateObject("烛影摇红.类")'记住烛影摇红和类这两个词是上面修改的

dim a()

dim b()

redim a(2)

redim b(2)

a(0)=23

a(1)=34

a(2)=45

msgbox zyyh.huoqu_shuzu1(a,B)

msgbox UBound(b)

msgbox zyyh.jisuanjunxian5(1,2,3,4,5)

End Sub

然后在金字塔的主菜单-运行-宏输入名称 test4

好了一切OK 无论传入数组还是传出数组传递参数和传出参数都有了。

语言和VBA基本上一样，但是VB6.0 却远远比 VBA灵活的多。

主题：关于VBA的混合编程,使用VB6.0做 ActiveX Dll