Ein Client in Visual Basic

Dies ist die Auflistung des vollständigen Quellcodes für den Client in Visual Basic:

Auflistung 1. Client in Visual Basic (ClientVB.vb)

Option Explicit
Option Strict

Imports System
Imports System.Collections

Imports CompCS
Imports CompVB
Imports CompVC

Public Module modmain

   ' The main entry point for the application.
   Sub Main()

      Dim Count As Integer

      ' Display result strings from the C# component.
      Dim MyCompCS As New CompCS.StringComponent
      Console.WriteLine("Strings from C# 
         StringComponent")
      For Count = 0 To MyCompCS.Count - 1
          Console.WriteLine(MyCompCS.GetString(Count))
      Next
      Console.WriteLine

      ' Display result strings from the Visual C++ component.
      Dim MyCompVC As New CompVC.StringComponent
      Console.WriteLine("Strings from Visual C++ 
         StringComponent")
      For Count = 0 To MyCompVC.Count - 1
          Console.WriteLine(MyCompVC.GetString(Count))
      Next
      Console.WriteLine

      ' Display the result strings from the Visual Basic component.
      Dim MyCompVB As New CompVB.StringComponent
      Console.WriteLine("Strings from Visual Basic 
         StringComponent")
      For Count = 0 To CInt(MyCompVB.Count) - 1
          Console.WriteLine(MyCompVB.GetString(Count))
      Next

   End Sub

End Module

Ebenso wie die using-Anweisung im Visual C#-Beispiel, gibt die Imports-Anweisung die Bibliotheken an und schließt die Namespaces in das Programm ein, so dass Sie auf Typen aus der Bibliothek verweisen können, ohne deren Typnamen voll zu kennzeichnen. Da das Beispiel in allen Komponenten denselben Typnamen (StringComponent) hat, müssen Sie dennoch den voll gekennzeichneten Namen verwenden, um eventuelle Mehrdeutigkeiten zu verhindern.

Der Clientcode ist mit dem Managed Extensions for C++-Beispiel und dem Visual C#-Beispiel mit Ausnahme einiger Kleinigkeiten, wie den Gültigkeitsbereichsauflösungsoperatoren und dem Nichtvorhandensein von Zeilenabschlusszeichen, identisch. Die Codeabschnitte, die die drei Zeichenfolgenkomponenten aufrufen, sind – abgesehen von der Angabe der zu verwendenden Bibliothek – ebenfalls identisch. Wie beim Managed Extensions for C++-Beispiel und beim Visual C#-Beispiel deklariert die erste Anweisung in jedem der drei Abschnitte eine neue lokale Variable des Typs StringComponent, initialisiert die Variable und ruft deren Konstruktor auf:

Dim MyCompCS As New CompCS.StringComponent

Nachdem eine Zeichenfolge in die Konsole geschrieben wird, um anzugeben, dass dieser Teil des Programms aufgerufen wurde, verwendet der Client den Wert der Count-Eigenschaft, um die Member der entsprechenden Zeichenfolgenkomponente zu durchlaufen:

For Count = 0 To MyCompVC.Count - 1
  Console.WriteLine(MyCompVC.GetString(Count))
Next

Weitere Anforderungen gibt es nicht. Für die beiden anderen Sprachkomponenten wird alles wiederholt.

Das Erstellen über die Befehlszeile ist verhältnismäßig einfach. Die einzige Änderung stellt das Schreiben der Komponente in das ..\Bin-Unterverzeichnis dar:

vbc.exe /t:exe /debug+ /optionstrict+ 
   /reference:..\Bin\CompCS.dll 
   /reference:..\Bin\CompVB.dll 
   /reference:..\Bin\CompVC.dll 
   /out:..\bin\ClientVB.exe ClientVB.vb

Siehe auch

Ein Windows Forms verwendender Windows-Client | Ein ASP.NET verwendender Client | Zusammenfassung des Lernprogramms für Entwicklung | Anhang A: Tools zum Durchsuchen von Namespaces