基本4

実行すると Solid Edgeの表示状態を切り替えるプログラム

サンプルとして実行するたびに Solid Edgeの表示状態を切り替えるプログラムを作成してみます。
実行すると、Solid Edgeが表示されていたら非表示に、非表示であったら表示に変えます。また、エラー処理は行わないので、Solid Edgeが起動していないとエラーで終了します。

  1. Public Class Form1
  2. Dim app As SolidEdgeFramework.Application
  3. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  4. app = System.Runtime.InteropServices.Marshal.GetActiveObject("Solidedge.Application")
  5. app.Visible = Not app.Visible
  6. End Sub
  7. End Class

ます、最初にAppliactionの定義を行います。
  1. Dim app As SolidEdgeFramework.Application

次に作成したイベント、この場合フォームが表示された時に実行されるイベントにプログラムを記述します。
  1. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  2. End Sub

現在起動しているSolid Edgeを取得します。
  1. app = System.Runtime.InteropServices.Marshal.GetActiveObject("Solidedge.Application")

取得したSolid Edgeの表示状態を変更します。
  1. app.Visible = Not app.Visible
最終更新:2008年02月03日 12:10
ツールボックス

下から選んでください:

新しいページを作成する
ヘルプ / FAQ もご覧ください。