Public a As my.Class1
Private Sub Command1_Click()
Dim r As Variant
Set a = New my.Class1
Call a.fun1(1, r, 3, 4)
End Sub
代码如上:就是到set这一步的时候出现自动化错误,我怀疑DLL没注册好,然后手动注册,结果一直出现“DLL初始化例程失败”,头大了,毕设被这一步卡住了,请高手帮忙解答哈
Private Sub Command1_Click()
Dim r As Variant
Set a = New my.Class1
Call a.fun1(1, r, 3, 4)
End Sub
代码如上:就是到set这一步的时候出现自动化错误,我怀疑DLL没注册好,然后手动注册,结果一直出现“DLL初始化例程失败”,头大了,毕设被这一步卡住了,请高手帮忙解答哈
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货