Un cliente en Visual Basic

A continuación figura la lista completa de código fuente para el cliente en Visual Basic:

Lista 1. Cliente en 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

Al igual que la instrucción using del ejemplo de Visual C#, la instrucción Imports especifica las bibliotecas e incorpora los espacios de nombres en el programa, lo cual permite hacer referencia a tipos de la biblioteca sin utilizar los nombres de tipo completos. Dado que el ejemplo tiene el mismo nombre de tipo (StringComponent) en cada uno de los componentes, sigue siendo necesario utilizar el nombre completo para eliminar cualquier ambigüedad.

El código de cliente es prácticamente idéntico a los ejemplos de Extensiones administradas de C++ y Visual C#, salvo para algunos elementos menos importantes como los operadores de resolución de ámbito y la ausencia de caracteres de terminación de línea. Las secciones de código que llaman a los tres componentes de cadena también son idénticas, salvo en cuanto a la especificación de la biblioteca que se va a utilizar. Al igual que en los ejemplos de Extensiones administradas de C++ y Visual C#, la primera instrucción en cada una de las tres secciones declara una nueva variable local del tipo StringComponent, inicializa la variable y llama a su constructor:

Dim MyCompCS As New CompCS.StringComponent

Tras escribir una cadena en la consola para indicar que se ha introducido esta parte del programa, el cliente utiliza el valor de la propiedad Count para realizar iteraciones en los miembros del componente de cadena apropiado:

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

Esto es todo lo que se necesita y se repite todo ello para los otros dos componentes de lenguaje.

La generación desde la línea de comandos es bastante sencilla. El único cambio consiste en escribir el componente en el subdirectorio ..\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

Vea también

Un cliente de Windows mediante formularios Windows Forms | Un cliente mediante ASP.NET | Resumen del tutorial sobre la programación | Apéndice A: Herramientas para explorar espacios de nombres