请问如何将CAD作为VB的子窗口？

dfan

请问如何将CAD作为VB的子窗口？将CAD嵌套入VB，作为VB的一个子窗体。

home

'/////autocad软件窗口能够出现在VB窗体中
Option Explicit

Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
Private lHwnd As Long

Private Sub Form_Load()

    
     On Error GoTo ErrTrap
     Dim acadApp As Object
     Set acadApp = CreateObject("AutoCAD.Application")
     acadApp.Visible = True
     lHwnd = GetParent(GetParent(acadApp.Activedocument.hwnd))
     If lHwnd = 0 Then Exit Sub
     SetParent lHwnd, Form1.hwnd
     Exit Sub

    
ErrTrap:
     On Error GoTo 0
End Sub

Private Sub Form_Unload(Cancel As Integer)
     If lHwnd = 0 Then Exit Sub
     SetParent lHwnd, 0
End Sub

dfan

楼上的方案非常好。高手就是高手。谢谢楼上的。再请问下，控制CAD窗口大小用什么命令呢？就是控制CAD窗口在VB界面里的大小，CAD窗口的大小随VB界面大小的改变而改变。

home

Declare Function SetWindowPos& Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)

这个函数应该可以，自己研究吧

dfan

谢谢“home”兄！！

烟雨.江南

又学习到一招。

天之雨露

有这种方法？我没不知道，过来学习一下

chpmould

控制CAD窗口大小用什么命令呢？就是控制CAD窗口在VB界面里的大小，CAD窗口的大小随VB界面大小的改变而改变

1983caobing

挺不错的，请问如何能够使得cad窗体脱离vb界面呢

陈亚娣

高手，要好好学习