[讨论]如何令autocad软件窗口能够出现在VB窗体中？

该怎么办呢难哦

大家都知道VB能调用AutoCAD，有时候想在用VB做的某个窗体中能够显示autocad软件的窗口，而不必一定要转换到autocad窗口。该怎样编制程序代码（用VB或VBA)实现这一功能呢？

efan2000

使用API函数SetParent吧，原理就是将ACAD的窗口设置为VB窗体的子窗口。

该怎么办呢难哦

Private Declare Function SetParent Lib "user32" Alias "SetParent" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
efan ,就这个吧？可我不知怎么用呀？

efan2000

2. 
   
3. Option Explicit
   
4. 
   
5. Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
   
6. Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
   
7. Private lHwnd As Long
   
8. 
   
9. Private Sub Form_Load()
   
10.    
    
11.     On Error GoTo ErrTrap
    
12.     Dim acadApp As Object
    
13.     Set acadApp = CreateObject("AutoCAD.Application")
    
14.     acadApp.Visible = True
    
15.     lHwnd = GetParent(GetParent(acadApp.Activedocument.hwnd))
    
16.     If lHwnd = 0 Then Exit Sub
    
17.     SetParent lHwnd, Form1.hwnd
    
18.     Exit Sub
    
19.    
    
20. ErrTrap:
    
21.     On Error GoTo 0
    
22. End Sub
    
23. 
    
24. Private Sub Form_Unload(Cancel As Integer)
    
25.     If lHwnd = 0 Then Exit Sub
    
26.     SetParent lHwnd, 0
    
27. End Sub

<br /> Option Explicit<br /> <br /> Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long<br /> Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long<br /> Private lHwnd As Long<br /> <br /> Private Sub Form_Load()<br />     <br />     On Error GoTo ErrTrap<br />     Dim acadApp As Object<br />     Set acadApp = CreateObject("AutoCAD.Application")<br />     acadApp.Visible = True<br />     lHwnd = GetParent(GetParent(acadApp.Activedocument.hwnd))<br />     If lHwnd = 0 Then Exit Sub<br />     SetParent lHwnd, Form1.hwnd<br />     Exit Sub<br />     <br /> ErrTrap:<br />     On Error GoTo 0<br /> End Sub<br /> <br /> Private Sub Form_Unload(Cancel As Integer)<br />     If lHwnd = 0 Then Exit Sub<br />     SetParent lHwnd, 0<br /> End Sub

SetParent第一个参数是子窗口的句柄，现在设为ACAD的句柄了，第二个参数是父窗口的句柄，现在设为VB窗体的句柄。
恢复设置父窗口的句柄为0。也就是重新指定屏幕为其的父窗口。

myfreemind

不错!效果看起来确实专业!

该怎么办呢难哦

查了我手中VB的书，都没有关于API的。我还是不能将autocad调出来。见笑了。。
efan能不能做个示例程序，只要能将autocad窗口在VB子窗体中显示即可。

efan2000

上面的例子就可以在VB中直接运行啊。getparent用于获取ACAD的句柄。而setparent用于设置它的父窗口。

该怎么办呢难哦

执行到getparent时提示：编译错误，子函数或函数未定义。怎么回事？
/

efan2000

你将两个API函数的声明放到模块中了吧。如果是这样的话那么要将Private更改为Public，因为Public是公有的，才能被其它窗体或者模块、类模块引用。而Private是私有的，只能在它所在的窗体或者模块、类模块中引用。

该怎么办呢难哦

这个错误我常犯！哎！
改过来了，可是还是不行，是不是还要其它代码？比如事先调用autocad的代码？