社区 › VB › 请教各位大侠：在VB程序中嵌入了CAD界面，如何同时打开一个指定的文件

zhangone 发表于 2008-4-25 12:40:00

请教各位大侠：在VB程序中嵌入了CAD界面，如何同时打开一个指定的文件

前面看了efan版主及各位大侠关于“在VB程序窗体中嵌入CAD界面”的帖子，受益匪浅，
在此对efan版主及各位的热心表示深深感谢:）
这里有一个小问题：在VB程序窗体中嵌入CAD界面后，如何同时同时打开一个指定的cad文件？
前面代码是这样的：
Private
Sub Form_Load()
   
   On   Error   GoTo ErrTrap
   Set acadApp =   GetObject(, ".Application")
   acadApp.Visible   = True
   lHwnd = GetParent(GetParent(acadApp.Activedocument.hwnd))
   If lHwnd = 0 Then   Exit   Sub
   lState = acadApp.WindowState
   acadApp.WindowState   = 1 '设置ACAD的窗口状态为默认，用于保存窗口位置。
   GetWindowRect lHwnd, r
   SetParent lHwnd, Form1.hwnd
   Form1.ScaleMode = vbPixels '将VB窗体默认的缇单位改为以像素为单位。
   SetWindowPos lHwnd, 0, Form1.ScaleLeft, Form1.ScaleTop, Form1.ScaleWidth, Form1.ScaleHeight, 0
   Exit   Sub
   ErrTrap:
         On
                Error
                GoTo 0
End Sub

zhangone 发表于 2008-4-27 23:33:00

怎么没人发表意见啊？

查看完整版本: 请教各位大侠：在VB程序中嵌入了CAD界面，如何同时打开一个指定的文件