Imports System.Resources
Imports System.Collections
Module Module1
Sub Main()
Dim reader = New ResourceReader("my.resources")
Dim en As IDictionaryEnumerator = reader.GetEnumerator()
Do While (en.MoveNext)
Console.WriteLine("Name: {0} - Value: {1}", _
en.Key.ToString().PadRight(10, " "), _
en.Value)
Loop
reader.Close()
Dim rm As ResourceManager
rm = ResourceManager.CreateFileBasedResourceManager("my", ".", Nothing)
Console.WriteLine(rm.GetString("first"))
End Sub
End Module
|