vbclass.vb

来自「《CSDN 开发高手》2004年第6期」· VB 代码 · 共 13 行

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