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

dfan · 发表于 2009-9-3 17:04:00

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

home · 发表于 2009-9-3 18:21:00

'/////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 · 发表于 2009-9-3 21:58:00

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

home · 发表于 2009-9-4 16:12:00

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)
这个函数应该可以，自己研究吧