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