active dllpublic function showfrom (ThenForm as form) as booleam theform.show vbmodal showform=true end function程序中调用: dim a as showformdll '上面那个DLL的名字 set a=new showformdll if a.showform(form1) then ' 这个form1是工程中已经有的窗体 msgbox "窗体调用成功" end if 其实这样调用没有什么用啊,一般来说都是在窗体直接建立在dll工程里
public function showfrom (ThenForm as form) as booleam这句应该修改为 public function showfrom (ThenForm as object) as booleam参数声明为object 就可以 接收form 了
theform.show vbmodal
showform=true
end function程序中调用:
dim a as showformdll '上面那个DLL的名字
set a=new showformdll
if a.showform(form1) then ' 这个form1是工程中已经有的窗体
msgbox "窗体调用成功"
end if 其实这样调用没有什么用啊,一般来说都是在窗体直接建立在dll工程里
public function showfrom (ThenForm as object) as booleam参数声明为object 就可以 接收form 了
If TypeName(c)="object" then '控件数组对象的类型是object
……
End If
Next