Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


10054 / 13644 ツリー ←次へ | 前へ→

【23947】ActiveXコンポーネントのエラートラップ koshiro 05/4/8(金) 14:11 質問[未読]
【23948】Re:ActiveXコンポーネントのエラートラップ IROC 05/4/8(金) 14:41 回答[未読]
【23949】Re:ActiveXコンポーネントのエラートラップ koshiro 05/4/8(金) 14:47 回答[未読]
【23950】Re:ActiveXコンポーネントのエラートラップ IROC 05/4/8(金) 14:52 回答[未読]
【23973】Re:ActiveXコンポーネントのエラートラップ koshiro 05/4/8(金) 20:24 回答[未読]

【23947】ActiveXコンポーネントのエラートラップ
質問  koshiro  - 05/4/8(金) 14:11 -

引用なし
パスワード
   はじめまして,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!!"にならず、”オートメーションエラー”になってしまいます。

どなたか解る方がいましたら、ぜひ教えてください。
お願いします。

【23948】Re:ActiveXコンポーネントのエラートラッ...
回答  IROC  - 05/4/8(金) 14:41 -

引用なし
パスワード
   VB6.0でしょうか?


Sub test()
Dim tx As TestClass
On Error GoTo err1
 Set tx = New TestClass
 tx.Testsub

 Exit Sub
err1:
 MsgBox Err.Number
End Sub


Private Sub Form_Load()
Call test
End Sub

【23949】Re:ActiveXコンポーネントのエラートラッ...
回答  koshiro  - 05/4/8(金) 14:47 -

引用なし
パスワード
   ▼IROC さん:
はい、VB6.0です

【23950】Re:ActiveXコンポーネントのエラートラッ...
回答  IROC  - 05/4/8(金) 14:52 -

引用なし
パスワード
   私の書いたコードでうまくいきませんか?

【23973】Re:ActiveXコンポーネントのエラートラッ...
回答  koshiro  - 05/4/8(金) 20:24 -

引用なし
パスワード
   IROCさん回答ありがとうございます。

実行してみたのですが、オートメーションエラーでした。

10054 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free