Visual Basic 中的用戶端

以下是用戶端的完整原始程式碼清單在 Visual Basic 中的樣子：

清單 1：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

和 Visual C# 範例中的 using 陳述式一樣，Imports 陳述式也會指定程式庫，並且會將命名空間合併到程式中，讓您不需要使用完整的型別名稱即可參考程式庫中的型別。由於範例中的每一個元件都具有相同的型別名稱 (StringComponent)，因此仍然必須使用完整名稱來避免混淆。

除了範圍解析運算子和沒有行尾字元等次要項目以外，這個用戶端程式碼實際上和 Managed Extensions for C++ 和 Visual C# 範例完全相同。而且，除了所要使用的程式庫指定以外，呼叫這三個字串元件的程式碼區段也相同。和 Managed Extensions for C++ 和 Visual C# 範例一樣，這三個區段中的第一個陳述式都是宣告 StringComponent 型別的新區域變數、初始化變數，以及呼叫它的建構函式：

Dim MyCompCS As New CompCS.StringComponent

將字串寫入主控台來表示這個部份的程式已輸入之後，用戶端就會使用 Count 屬性的值重複適當字串元件的成員：

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

說明到此為止，另外兩個語言元件都是重複同樣的方式。

從命令列建置非常簡單。唯一的變更是要將元件寫入 ..\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

請參閱

使用 Windows Form 的 Windows 用戶端 | 使用 ASP.NET 的用戶端 | 開發教學課程摘要 | 附錄 A：瀏覽命名空間的工具