神级圣骑txt80:5行代码 把cad窗体镶入到自已的窗体

来源：百度文库 编辑：偶看新闻 时间：2024/04/30 14:28:20

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 [ 本帖最后由 caiqs 于 2008-11-5 10:43 AM 编辑 ]
求ACCESS中的进货录入窗体的代码、出货窗体的代码和查询修改窗体的代码 求登陆窗体的vb代码 VB窗体代码 请教：VB窗体Hide窗体的解决办法， 可以在代码中修改窗体的boderstyle属性吗? java的窗体问题 C#.net,把窗体的一部分保存成图片 在VB 添加用户窗体 代码 delphi 窗体内的文字和窗体一起大小 iframe中，父窗体如何执行子窗体的函数？ 在Access中，什么是窗体？窗体的作用是什么？ c# 窗体数据的传递 关于java窗体的坐标 VB窗体数据的问题 关于VB窗体的问题 关于vb的多重窗体 关于vb窗体的问题~！ vb中使用数据库窗体向导是选择帮定ado控件和帮定ado代码所生成的窗体代码有什么区别？ 如何判断已显示出的窗体为模式窗体还是非模式窗体? vb中怎样禁止把窗体拖大拖小? 怎么把form2设置为主窗体 为什么我在用vb做“调整窗体大小的实现“时，窗体只会一味缩小。我是按照书上的代码写的，为什么效果不对 vc6.0第一个载入的窗体的初始化代码应该在什么位置？（mfc） 请问做VB时，要让command1始终位于窗体的右下角的代码如何写