ここは私のコードの例ですが、あなたがそれを認識していただければ幸いです。
私は画面の更新を無効にし、静音動作(ノーポップアップダイアログ)を設定
Public Class INV_APP
Public oInvApp As Inventor.Application
Public oInvStarted As Boolean = False
Public Sub New()
' This call is required by the designer.
InitializeComponent()
' Add any initialization after the InitializeComponent() call.
Try
oInvApp = Marshal.GetActiveObject("Inventor.Application")
Catch ex As Exception
Try
Dim invAppType As Type = GetTypeFromProgID("Inventor.Application")
oInvApp = CreateInstance(invAppType)
oInvApp.Visible = True
oInvStarted = True
Catch ex2 As Exception
End Try
End Try
End Sub
Private Sub Button_click(sender As Object, e As EventArgs) Handles Button1.Click
oInvApp.SilentOperation = True
oInvApp.ScreenUpdating = False
' DO SOME COOL STUFF HERE.
oInvApp.SilentOperation = False
oInvApp.ScreenUpdating = True
End Sub
End Class
あなたはあなたのコードを少し示していただけますか?だから私はあなたに必要な変更を与えることができますか? –