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:瀏覽命名空間的工具