vbclass.vb

《CSDN 开发高手》2004年第6期

Imports CSharpClassNameSpace.CSharpClass

Public Class VBClass
    Dim CSharpObj As CSharpClassNameSpace.CSharpClass
    Public Sub New()
        CSharpObj = New CSharpClassNameSpace.CSharpClass()
    End Sub
    Public Sub VBSaySomething(ByVal str As String)
        CSharpObj.SaySomething("  呵呵，我从VB组件中调用了C＃组件中的方法来实现我的功能,传入的字串是:" + str)
    End Sub

End Class