hellonew.vb

来自「一个饭店管理系统」· VB 代码 · 共 31 行


Imports System
Imports System.Runtime.Remoting
Imports Microsoft.VisualBasic
Imports Hello



Public Class HelloNew
    
    Public Shared Sub Main()
       
        
        Dim name As [String] 
        Dim configFilename As [String] = "HelloNew.exe.config"
        dim msg as string
	msg="用戶端的執行緒ID為：" & appdomain.GetCurrentThreadID.ToString() & vbCrLf
	  console.writeline(msg)  
        Console.WriteLine("請問大名？")
        name=console.readline()
        RemotingConfiguration.Configure(configFilename)
        
        
        Dim helloService As New HelloService()
        
        
        Dim greeting As [String] = helloService.SayHello(name)
        
        Console.WriteLine(greeting)
    End Sub 'Main
End Class 'HelloNew