如何将CAD窗口显示在VB.NET窗体下呀？

xwjljh

看到http://www.objectarx.net/bbs/viewthread.php?tid=1754论坛发布的CAD窗体显示在C#窗体下，

如何将其显示在VB.NET下呀？

网上有关于CAD窗体显示在VB窗体下的代码，但是在VB.NET中无法正常显示，

望高手给予帮助，谢谢！

雪山飞狐_lzh

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;

using System.Runtime.InteropServices;

using Autodesk.AutoCAD.Interop;

namespace WindowsFormsApplication1
{
   

   

    public partial class Form1 : Form
    {
        AcadApplication app;

        public Form1()
        {
            InitializeComponent();
        }

        [DllImport("user32.dll", SetLastError = true)]
        static extern IntPtr SetParent(IntPtr child, IntPtr newParent);

        [DllImport("user32.dll", ExactSpelling = true, CharSet = CharSet.Auto)]
        public static extern IntPtr GetParent(IntPtr hWnd);

        private void Form1_Load(object sender, EventArgs e)
        {
            app = (AcadApplication)Marshal.GetActiveObject("AutoCad.Application");
            SetParent(new IntPtr(app.HWND), this.Handle);
        }
    }
}

xwjljh

这是C#的，

有没有VB.NET的呀？？

谢谢了

雪山飞狐_lzh

2. Imports System
3. Imports System.Runtime.InteropServices
4. Imports Autodesk.AutoCAD.Interop
5. Public Class Form1
6.     Dim app As AcadApplication
7.     <DllImport("user32.dll")> _
8.     Friend Shared Function SetParent(ByVal hWndChild As Integer, ByVal hWndNewParent As Integer) As Integer
9.     End Function
10.     <DllImport("user32.dll")> _
11.     Friend Shared Function GetParent(ByVal hWnd As Integer) As Integer
12.     End Function
13.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
14.         app = CreateObject("AutoCad.Application.17.1")
15.         SetParent(New IntPtr(app.HWND), Me.Handle)
16.         app.Visible = True
17.     End Sub
18.     Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
19.         SetParent(New IntPtr(app.HWND), IntPtr.Zero)
20.     End Sub
21. End Class

Imports System Imports System.Runtime.InteropServices Imports Autodesk.AutoCAD.Interop Public Class Form1     Dim app As AcadApplication     <DllImport("user32.dll")> _     Friend Shared Function SetParent(ByVal hWndChild As Integer, ByVal hWndNewParent As Integer) As Integer     End Function     <DllImport("user32.dll")> _     Friend Shared Function GetParent(ByVal hWnd As Integer) As Integer     End Function     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load         app = CreateObject("AutoCad.Application.17.1")         SetParent(New IntPtr(app.HWND), Me.Handle)         app.Visible = True     End Sub     Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing         SetParent(New IntPtr(app.HWND), IntPtr.Zero)     End Sub End Class

xwjljh

哈哈，谢谢LZH741206老兄

另，怎么联系您呀？

希望能够跟您合作，进行技术指导，有报酬的。哈哈

谢谢了

我的QQ：75003956

MSN:xwjljh@hotmail.com

zhangzhenxin197

复制了版主的代码到vb.net里，
第三行有错误，说   “ 未定义类型  AcadApplication”
第五行  Imports Autodesk.AutoCAD.Interop  也显示错误。

请教怎么解决啊？
我用的是cad2007.     vb.net2008   。
是不是要引用什么啊？

急切盼望版主和各位高人的解答，
万分感谢！

哭泣殺豬

zhangzhenxin197 发表于 2011-7-16 19:22
复制了版主的代码到vb.net里，
第三行有错误，说   “ 未定义类型  AcadApplication”
第五行  Imports A ...

好像是要引用acax17enu
在C:\Program Files\Common Files\Autodesk Shared
資料夾下

zhangzhenxin197

引用 AutoCAD 2007 Type Library 之后，
上面2个问题解决了，
但是又出现  “无法创建 ActiveX 组件”错误
如何解决？急盼大侠帮忙解答

zhangzhenxin197

刚才又试了下，把第13行   app = CreateObject("AutoCad.Application.17.1")
改成   app = CreateObject("AutoCad.Application.17")
就解决了。把解决的过程也贴上来，希望和我一样的初学者少走弯路。
哎，我们这些菜鸟，一个小小的问题自己要摸索好几天。
希望高手来指导下啊。

zhangzhenxin197

然后，又如何让cad窗体在vb.net窗体下缩放呢？以及如何把cad放进vb窗体中的容器中呢？