helloservice.vb

一个饭店管理系统


Imports System
Imports Microsoft.VisualBasic

Namespace Hello
    
    Public Class HelloService
        Inherits MarshalByRefObject
        
        public Function SayHello(ByVal strName As String) As string
	dim msg as string
	msg="Hi ! " + strName & ". 歡迎參加DevCon研討會"  & vbCrLf & _
	"這裡的執行緒ID為：" & appdomain.GetCurrentThreadID.ToString()
 	return msg
        end Function
    End Class 

End Namespace