基本6

1. エラーが発生した場合
   プログラムをデバッグ中にエラーが発生すると処理が中断されます。例えば、Solid Edgeを起動していない状態で開始するとエラーが発生します。
   
   
2. 対処方法

Visual Basic 2005ではエラー処理は、 try cactchで行います。tryの後の実行処理でエラーが発生した場合、catchに処理が移ります。
まずは、処理を行う箇所で、 try とタイプします。すると、自動的に次のような構造が作成されます。

Try
 
Catch ex As Exception
 
End Try 

現在のプログラムでは appの情報を取得するところでエラーが発生しています。つまり、何もないのに情報を取りにいったためにエラーが発生しています。従ってこの部分をtryの下に持って行きます。

try
    app = System.Runtime.InteropServices.Marshal.GetActiveObject("Solidedge.Application")
    app.Visible = Not app.Visible
Catch ex As Exception
End Try