vs.net 2005 创建COM组件给VB调用

关注

原创最新推荐文章于 2026-07-01 07:45:00 发布 455 阅读 AI 写同款· GEO 优化 ›

VB.NET调用ARX程序创建的COM Server 首先，我们看如何用VS 2005(英文)来创建一个ARX COM Server并暴露一个接口供后面的程序调用。新建一个工程，选择用ObjectARX向导创建工程，取名字为comServerFromArx，按OK按钮。在出现的对话框中左边选项中选择COM Options，在右边的选项中选择使用ATL来实现COM Server，按Finish按钮。在工阅读详情

原来在vs.net 2005中用ｖｂ来实现这个功能是如此的简单。

　方法如下：

　新建一个　项目　，选择　Visual Basic / Window / 类库　，假设项目名为ClassLibrary1

　然后在　solution manager(解决方案资源管理器）中，　将　新创建的　Class1.vb　文件删除。

　然后　在　　solution manager(解决方案资源管理器）中　的项目上点击右键　，在弹出的菜单上　点击　添加 / 类　，在弹出的对话框中选择　com类　，修改类的名称（本例中修改为ClassApp.vb），后点击　添加　按钮。

<ComClass(ClsApp.ClassId, ClsApp.InterfaceId, ClsApp.EventsId)> _
Public Class ClsApp

#Region "COM GUID"
    ' 这些 GUID 提供此类的 COM 标识
    ' 及其 COM 接口。若更改它们，则现有的
    ' 客户端将不再能访问此类。
    Public Const ClassId As String = "c47c7000-b5b0-4e7d-a985-d0e4ef0a0868"
    Public Const InterfaceId As String = "39d04b13-3f4c-4a16-977d-f205a96f8a00"
    Public Const EventsId As String = "fc43772a-c3ae-429e-8f89-d9c7b613b2d7"
#End Region

    ' 可创建的 COM 类必须具有一个不带参数的 Public Sub New()
    ' 否则，将不会在
    ' COM 注册表中注册此类，且无法通过
    ' CreateObject 创建此类。
    Public Sub New()
        MyBase.New()
    End Sub

Public Function ExecuteEvent(ByVal sText As String) As Boolean
On Error GoTo Err

MsgBox(sText)

        Exit Function
Err:
        MsgBox(Err.Description, vbInformation)
        ExecuteEvent = False
        Exit Function
    End Function

End Class

----------------------

然后就可以编译，编译后，在VB中添加如下的代码来调用这个com

Private Sub Command1_Click()
    Dim obj As Object
    Dim sXml As String
    sXml = ""
    Set obj = CreateObject("ClassLibrary1.ClsApp")
    obj.ExecuteEvent "TEST !"
End Sub

http://hi.baidu.com/jonesvale/blog/item/5c7bc43c204d0ace9f3d629a.html