ycw565 2015-07-24 14:28 采纳率: 0%
浏览 1949

我用VB6做了一个activex exe,但是参数经过了一次中转,有没有好的办法解决这个问题?

dim check4 as integer,acadapp1a as object

'GetCADdata1 获取CAD数用~~~~~~~~~~~~~~~
Public Sub GetCADdata1(ByRef ck4 As Integer, ByRef AcadApp1 As Object)
    Check4 = ck4
    Set AcadApp1a = AcadApp1
    GCADTimer1.Interval = 100
    GCADTimer1.Enabled = True
End Sub

Private Sub GCADTimer1_Timer()
    GCADTimer1.Enabled = False
    Call GetCADdata1a(Check4, AcadApp1a)    
End Sub

Private Sub GetCADdata1a(ByRef Check4 As Integer, ByRef AcadApp1a As Object)
    一大堆代码。。。。
end sub

其中的ck4,和AcadApp1经过了一次中转,有什么办法可以不用中转提高效率呢?

还有如果传入的参数是数组的话,总是调用不成功,不知道为什么,难道activex exe不能传入数组吗?

  • 写回答

1条回答

  • threenewbee 2015-07-24 14:59
    关注

    可以传数组,但是要看你的类型是不是对。
    GetCADdata1a如果本身很耗时,那么多调用一次没有什么开销,你传的又是引用。

    评论

报告相同问题?

悬赏问题

  • ¥15 关于#matlab#的问题:期望的系统闭环传递函数为G(s)=wn^2/s^2+2¢wn+wn^2阻尼系数¢=0.707,使系统具有较小的超调量
  • ¥15 FLUENT如何实现在堆积颗粒的上表面加载高斯热源
  • ¥30 截图中的mathematics程序转换成matlab
  • ¥15 动力学代码报错,维度不匹配
  • ¥15 Power query添加列问题
  • ¥50 Kubernetes&Fission&Eleasticsearch
  • ¥15 報錯:Person is not mapped,如何解決?
  • ¥15 c++头文件不能识别CDialog
  • ¥15 Excel发现不可读取的内容
  • ¥15 关于#stm32#的问题:CANOpen的PDO同步传输问题