home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 40 / IOPROG_40.ISO / SOFT / NETFrameworkSDK.exe / comsdk.cab / samples.exe / IntroDev / CompTest / ClientVB / ClientVB.vb < prev    next >
Encoding:
Text File  |  2000-06-23  |  1.0 KB  |  42 lines
  1. Imports System
  2. Imports System.Collections
  3.  
  4. Imports CompCS
  5. Imports CompVB
  6. Imports CompVC
  7.  
  8. Option Explicit
  9.  
  10. Public Module modmain
  11.  
  12.     'The main entry point for the application
  13.     Sub Main()
  14.  
  15.          Dim Count As Integer
  16.  
  17.          ' Display result strings from C# Component
  18.          Dim MyCompCS As New CompCS.StringComponent
  19.          Console.WriteLine("Strings from C# StringComponent")
  20.          For Count = 0 To MyCompCS.Count - 1
  21.               Console.WriteLine(MyCompCS.GetString(Count))
  22.          Next
  23.          Console.WriteLine
  24.  
  25.          ' Display result strings from Visual C++ Component
  26.          Dim MyCompVC As New CompVC.StringComponent
  27.          Console.WriteLine("Strings from VC StringComponent")
  28.          For Count = 0 To MyCompVC.Count - 1
  29.               Console.WriteLine(MyCompVC.GetString(Count))
  30.          Next
  31.          Console.WriteLine
  32.  
  33.          ' Display result strings from Visual Basic Component
  34.          Dim MyCompVB As New CompVB.StringComponent
  35.          Console.WriteLine("Strings from VB StringComponent")
  36.          For Count = 0 To CInt(MyCompVB.Count) - 1
  37.               Console.WriteLine(MyCompVB.GetString(Count))
  38.          Next
  39.  
  40.     End Sub
  41.  
  42. End Module