如何在天正CAD里加载.exe的应用程序

输入“menuload”点击空格

2

进入应用程序加载页面，加载/卸载自定义应用程序

3

点击浏览，找到我们要加载的应用程序

4

点击加载

5

返回CAD *** 作页面，就可以看到已经加载的应用了

6

如果在上面步骤中，无法加载或者找不到需要加载的应用程序，可以输入“appload”， *** 作补助与上面一样，就可以成功加载了

具体代码如下，1、单击空白处运行Private Sub Form_Click()

Shell "C:\Program Files\Tencent\QQ\Bin\QQ.exe", vbNormalFocus '打开QQ程序

End Sub

2、用command_click()控件运行Private Sub Command1_Click()

Shell "C:\Program Files\Tencent\QQ\Bin\QQ.exe", vbNormalFocus '打开QQ程序End Sub 其实只要Shell "panthname ", windowstylepanthname 为你要加载的程序路径名、 windowstyle '可选参数具体如下：0、vbHide '窗口被隐藏，而焦点会移动到隐藏式窗口 '值为 0 1、vbNormalFocus '窗口具有焦点，且会还原它原来的大小位置 '值为 12、vbMinimizedFocus '窗口会有一个焦点的图标来显示 '值为 23、vbMaximizedFocus '窗口是一个具有焦点的最大化窗口 '值为 34、vbNormalNoFocus'窗口被还原到最近使用的大小位置，而当前活动的窗口仍然保持活动 '值为 46、vbMinimizedNoFocus '窗口会以一个图标来显示，而当前活动的窗口仍然保持活动 '值为 6 例如打开 QQ程序如下：Shell "C:\Program Files\Tencent\QQ\Bin\QQ.exe", vbNormalFocus

---