|
|
Private Sub Form_Load()
On Error Resume Next
Me.Hide
'获得正在运行的对象
Set acadApp = GetObject(, "AutoCAD.Application.16")
If Err Then
Err.Clear
'‘创建一个新的AUTOCAD应用程序对象
Set acadApp = CreateObject("AutoCAD.Application.16")
If Err Then
MsgBox "不能运行AutoCAD,请检查是否安装！"
Me.Show
Exit Sub
End If
End If
Me.Show
acadApp.Visible = True
acadApp.WindowState = acMax
End Sub
问题是:开机第一次运行的时候,总是回出现"部件要求挂起" 有切换/重试选项
仅仅是开机第一次
第二次就不会出现了
请大家帮忙分析下 |
|
置顶卡
