Client dans Visual Basic

Voici la liste de code source complète pour le client dans Visual Basic :

Listing 1. Client dans 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

Comme l'instruction using de l'exemple Visual C#, l'instruction Imports spécifie les bibliothèques et incorpore les espaces de noms dans le programme, ce qui vous permet de référencer des types de la bibliothèque sans qualifier entièrement leurs noms de types. Étant donné que l'exemple a le même nom de type (StringComponent) dans chacun des composants, vous devez quand même utiliser le nom qualifié complet pour supprimer toute ambiguïté.

Le code client est pratiquement identique aux exemples des extensions managées pour C++ et Visual C#, à l'exception de certains détails tels que les opérateurs de résolution de portée et l'absence de caractères de terminaison de ligne. De même, les sections de code qui appellent les trois composants de chaîne sont les mêmes, à l'exception de la spécification relative à la bibliothèque à utiliser. Comme dans les exemples des extensions managées pour C++ et Visual C#, la première instruction figurant dans chacune des trois sections déclare une nouvelle variable locale de type StringComponent, initialise la variable et appelle son constructeur :

Dim MyCompCS As New CompCS.StringComponent

Après avoir écrit une chaîne dans la console pour indiquer que cette partie du programme a été entrée, le client utilise la valeur de la propriété Count pour itérer sur les membres du composant de chaîne approprié :

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

C'est tout ce qui est requis et tout est répété pour les deux autres composants de langage.

Une création à partir de la ligne de commande est assez simple. La seule modification consiste à écrire le composant dans le sous-répertoire ..\Bin :

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

Voir aussi

Client Windows utilisant Windows Forms | Client utilisant ASP.NET | Résumé du didacticiel de développement | Annexe A : Outils pour l'exploration des espaces de noms