実行すると Solid Edgeの表示状態を切り替えるプログラム
サンプルとして実行するたびに Solid Edgeの表示状態を切り替えるプログラムを作成してみます。
実行すると、Solid Edgeが表示されていたら非表示に、非表示であったら表示に変えます。また、エラー処理は行わないので、Solid Edgeが起動していないとエラーで終了します。
Public Class Form1
Dim app As SolidEdgeFramework.Application
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
app = System.Runtime.InteropServices.Marshal.GetActiveObject("Solidedge.Application")
app.Visible = Not app.Visible
End Sub
End Class
ます、最初にAppliactionの定義を行います。
Dim app As SolidEdgeFramework.Application
次に作成したイベント、この場合フォームが表示された時に実行されるイベントにプログラムを記述します。
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
現在起動しているSolid Edgeを取得します。
app = System.Runtime.InteropServices.Marshal.GetActiveObject("Solidedge.Application")
取得したSolid Edgeの表示状態を変更します。
app.Visible = Not app.Visible
最終更新:2008年02月03日 12:10