basicobj.vb

聊天 聊天 聊天 聊天 聊天 聊天

Imports System
Imports System.Text
Imports Microsoft.VisualBasic

Namespace BasicObjVb

 Public Class  BasicVb
 Private ls_message as string
 
    Public Sub New()
	        MyBase.New()
	        ls_message = ""
   	End Sub
 	
 	Public Property message as string 
 	    Get
 		    Return ls_message 
 	    End Get
     	
 	    Set
 		    ls_message = value
 	    End Set
 	End Property
 
 	Public Function  test() as string
 	    Dim SB As StringBuilder
   	    SB = New StringBuilder(ls_message)
 	    SB = SB.Append("..returned from function test")
 	    test = SB.ToString()
 	End Function
  End Class
End Namespace