foo.vb

来自「matlab实用教程」· VB 代码 · 共 10 行

Sub foo(Rout1 As Range, Rout2 As Range, Rout3 As Range, Rin1 As Range, Rin2 As Range)
   Dim aClass As Object
   Dim aUtil As Object
   Dim v As Variant
   
   aUtil = CreateObject("MWComUtil.MWUtil")
   aClass = CreateObject("mycomponent.myclass.1_0")
   Call aClass.foo(3,v,Rin1,Rin2)
   Call aUtil.MWUnpack(v,0,True,Rout1,Rout2,Rout3)  
End Sub