Bring QPID .NET Binding examples more in line with cpp examples.

1. Return 0/1 from main to indicate success/failure, where possible.
2. Call sender's session.Sync() after transmitting messages and not waiting for responses.
3. Add third arg connectionOptions as used in cpp examples.

git-svn-id: https://svn.apache.org/repos/asf/qpid/trunk/qpid@1041141 13f79535-47bb-0310-9956-ffa450edef68

1 files changed, 7 insertions, 4 deletions

diff --git a/cpp/bindings/qpid/dotnet/examples/visualbasic.example.client/visualbasic.example.client.vb b/cpp/bindings/qpid/dotnet/examples/visualbasic.example.client/visualbasic.example.client.vb
index ccdc0d673c..f32cfd8bce 100644
--- a/cpp/bindings/qpid/dotnet/examples/visualbasic.example.client/visualbasic.example.client.vb
+++ b/cpp/bindings/qpid/dotnet/examples/visualbasic.example.client/visualbasic.example.client.vb
@@ -24,14 +24,16 @@ Imports Org.Apache.Qpid.Messaging
 Namespace Org.Apache.Qpid.Messaging.Examples

     Module Module1

         Class Client

-            Public Shared Sub Main(ByVal args() As String)

+            Public Shared Function Main(ByVal args() As String) As Integer

                 Dim url As String = "amqp:tcp:127.0.0.1:5672"

+                Dim connectionOptions As String = ""

 

                 If args.Length > 0 Then url = args(0)

+                If args.Length > 1 Then connectionOptions = args(1)

 

                 Dim connection As Connection

                 Try

-                    connection = New Connection(url)

+                    connection = New Connection(url, connectionOptions)

                     connection.Open()

 

                     Dim session As Session = connection.CreateSession()

@@ -58,12 +60,13 @@ Namespace Org.Apache.Qpid.Messaging.Examples
                         Console.WriteLine("{0} -> {1}", request.GetContent(), response.GetContent())

                     Next i

                     connection.Close()

-

+                    Main = 0

                 Catch e As Exception

                     Console.WriteLine("Exception {0}.", e)

                     connection.Close()

+                    Main = 1

                 End Try

-            End Sub

+            End Function

         End Class

     End Module

 End Namespace