例: ClearJavaError メソッド

次のスクリプトは、特定の Java™ クラスを取得しようとしている間にエラーをキャッチします。MessageBox でエラーが報告されると、ClearJavaError を使用してすべての JavaError がクリアされます。

Dim myClass As JavaClass
Dim myObject As JavaObject
Dim myError As JavaError

On Error GoTo Catch
Set mySession = new JavaSession()
Set myClass = mySession.GetClass("Invalid")
exit Sub

Catch:
Set myError = mySession.getLastJavaError()
MessageBox myError.errormsg,, "Error"
mySession.ClearJavaError