|
はじめまして,koshiroといいます。
今自作のActiveXEXEを、標準EXEから参照設定して
Newで作成して使用しています。
ActiveXEXE内でErr.raiseにて自作のエラーを発生させて
いるのですが、標準EXE内でトラップした場合、全て”オートメーションエラー”
になってしまいます。
例えば,TestXexe.exeというActiveXEXEのTestClassの
Testsubメソッドに
Public sub Testsub()
Err.Raise 2000,"TestSub Error!!"
end sub
を実装して、標準EXEにて
sub test()
dim tx as TestXexe.TestClass
On Error Goto Err1
Set tx = New TestXexe.TestClass
tx.Testsub
end sub
testサブルーチンを実行すると、tx.Testsubを実行したところで
期待の”TestSub Error!!"にならず、”オートメーションエラー”になってしまいます。
どなたか解る方がいましたら、ぜひ教えてください。
お願いします。
|
|