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

该怎么办呢难哦 · 发表于 2003-10-8 11:11:00

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

efan2000 · 发表于 2003-10-8 13:29:00

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

该怎么办呢难哦 · 发表于 2003-10-8 16:14:00

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

efan2000 · 发表于 2003-10-8 19:10:00

copy


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