注意:你的函数必须复制到工程中新生成的类中(例如:clsTest),该类必须为公共类,可以输出,同时你的函数或要为PUBLIC,否则不能输出
比如:
public sub ShowForm(cFrmName as string)
select case cFrmName
case "a"
load a
a.show 1
case ...
end select
end sub
调用:
1、新建工程,然后工程-》引用-》选择你的(*.dll)文件,引用到工程中来
2、
dim dllTest as clsTest
set dllTest = New clsTest
call dllTest.ShowForm "a"