5行代码 把cad窗体镶入到自已的窗体
www.dimcax.com
5行代码 把cad窗体镶入到自已的窗体
几年前的东西,觉得很简单,也就那么几行,发现对这个感兴趣的人还真不少在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'重新设置cad窗体的父 end sub private sub form_unload(cancel as integer) setparent app.hwnd, 0'关闭本窗体后要恢复来原来的,父为0即桌面 end sub [
(128.97 kb)
下载次数:5