VB.NET-ThreadPool和C#中的VB.NET委托

嘿,这是如何用VB.NET编写的？这是我在http://www.codeproject.com/KB/silverlight/SynchronousSilverlight.aspx上发现的一个示例.

ThreadPool.QueueUserWorkItem(delegate
{
 var channelFactory = new ChannelFactory<ISimpleService>("*");
 var simpleService = channelFactory.CreateChannel();
 var asyncResult = simpleService.BeginGetGreeting("Daniel", null, null);
 string greeting = null;
 try
 {
  greeting = simpleService.EndGetGreeting(asyncResult);
 }
 catch (Exception ex)
 {
  displayMessage(string.Format(
    "Unable to communicate with server. {0} {1}", 
   ex.Message, ex.StackTrace));
 }
 displayGreeting(greeting);
});

解决方法:

可能是一些语法错误,但我相信您可以解决它们.

ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf GetGreeting))

Private Sub GetGreeting(o As Object)
    Dim channelFactory = New ChannelFactory(Of ISimpleService)("*")
    Dim simpleService = channelFactory.CreateChannel()
    Dim asyncResult = simpleService.BeginGetGreeting("Daniel", nothing, nothing)
    Dim greeting As String = nothing
    Begin Try
        greeting = simpleService.EndGetGreeting(asyncResult)
    Catch ex As Exception
        displayMessage(String.Format("Unable to communicate with server. {0} {1}", ex.Message, ex.StackTrace))
    End Try
    displayGreeting(greeting)
End Sub