VB.NET 开发Com组件在 VB调用

原来在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