5行代碼 把cad窗體鑲入到自已的窗體
幾年前的東西,覺(jué)得很簡(jiǎn)單,也就那么幾行,發(fā)現對這個(gè)感興趣的人還真不少
在VB的模塊中聲明api 如下:
Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
隨便加一個(gè)窗體,在窗體代碼加入
Dim app As Object
Private Sub Form_Load() Set app = GetObject(, "Autocad.application") app.Visible = True SetParent app.hWnd, Form1.hWnd'重新設置cad窗體的父
End Sub
Private Sub Form_Unload(Cancel As Integer) SetParent app.hWnd, 0'關(guān)閉本窗體后要恢復來(lái)原來(lái)的,父為0即桌面
End Sub [ 本帖最后由 caiqs 于 2008-11-5 10:43 AM 編輯 ]
本站僅提供存儲服務(wù)，所有內容均由用戶(hù)發(fā)布，如發(fā)現有害或侵權內容，請
點(diǎn)擊舉報。
