win10一定要创建64位的,32位调用不了
创建ATL控件后,添加简单对象
右键添加属性和方法
'msgbox("Hello,World!")
'我的第一个程序
sub test(i)
'msgbox("test")
dim obj1
'set obj=CreateObject("THISMYOCX.thismyocxCtrl.1") '这个是MFC创建的ocx id写法
set obj=CreateObject("pidcompute") '这个id是创建的时候写入的,保持一致
If IsNull(obj) Then
msgbox("null")
Else
'msgbox("not null")
End If
'obj.hello
Dim MyArray(2)
MyArray(0) = 12345678
MyArray(1) = -20000001
MyArray(2) = 208
'obj.InputArray MyArray
obj.Compute 10001,10002,10003,10004,10005,10006,10007,10008,MyArray
Dim result
result = obj.GetValue
msgbox(result)
end sub
test "demo"
具体技术实现咨询可私信