home *** CD-ROM | disk | FTP | other *** search
/ PC Pro 2005 June (DVD) / DPPRO0605DVD.iso / dotNETSDK / SETUP.EXE / netfxsd1.cab / FL_ResWrite_vb________.3643236F_FC70_11D3_A536_0090278A1BB8 < prev    next >
Encoding:
Text File  |  2002-03-11  |  1.3 KB  |  33 lines
  1. ∩╗┐Imports System
  2. Imports System.Collections
  3. Imports System.Resources
  4.  
  5. Class MainApp
  6.     
  7.     Public Shared Sub Main()
  8.         ' First create the resource file and add strings
  9.         Dim rw As ResourceWriter = New ResourceWriter("sample.resources")
  10.         rw.AddResource("test1", "one")
  11.         rw.AddResource("test2", "two")
  12.         rw.AddResource("test3", "three")
  13.         rw.AddResource("test4", "four")
  14.         rw.AddResource("test5", 512341234)
  15.         rw.Close()
  16.         
  17.         ' Iterate through the resources
  18.         Dim rr As ResourceReader = New ResourceReader("sample.resources")
  19.         Dim de As IDictionaryEnumerator = rr.GetEnumerator()
  20.         While de.MoveNext()
  21.             Console.WriteLine((de.Key.ToString() + " " + de.Value.ToString()))
  22.         End While
  23.         rr.Close()
  24.         
  25.         ' Use a ResourceManager to access specific resources
  26.         Dim rm As ResourceManager = ResourceManager.CreateFileBasedResourceManager("sample", ".", Nothing)
  27.         Console.WriteLine(rm.GetString("test1"))
  28.         Console.WriteLine(rm.GetString("test2"))
  29.         Console.WriteLine(rm.GetString("test3"))
  30.         Console.WriteLine(rm.GetString("test4"))
  31.         Console.WriteLine(rm.GetObject("test5").ToString())
  32.     End Sub 'Main 
  33. End Class 'MainApp