ATL中的代码类似:
//主要是为了传递BYTE数组 库名MyCtrl 对象名MyObj
Make(VARIANT byData)
//VB中调用
Dim a As MYCTRLLib.MyObj
Dim b(2) As Byte
b(0) = 97
b(1) = 98
b(2) = 99
a.Make b运行时错误信息为 Runtime error '91' Object Variable or With Block Variable not set
VC下调用无错
//主要是为了传递BYTE数组 库名MyCtrl 对象名MyObj
Make(VARIANT byData)
//VB中调用
Dim a As MYCTRLLib.MyObj
Dim b(2) As Byte
b(0) = 97
b(1) = 98
b(2) = 99
a.Make b运行时错误信息为 Runtime error '91' Object Variable or With Block Variable not set
VC下调用无错
Dim a As new MYCTRLLib.MyObj
Compile error invalid use of new keyword
b(0) = 97
b(1) = 98
b(2) = 99
dim c as variant
c=b
a.Make c
还是
Runtime error '91' Object Variable or With Block Variable not set
少了个NEW