VB.Net/GUI/Resources
Содержание
Localization: Find Resources-VB\Module1.vb
<source lang="vbnet"> Imports System.Reflection Module Module1
Sub Main() Dim Index As Integer Dim ReflA As System.Reflection.Assembly Dim ReflA_Types() As Type Dim fname As String fname = "C:\WINNT\Microsoft.NET\Framework\v1.0.3328\mscorlib.dll" ReflA = ReflA.LoadFrom(fname) ReflA_Types = ReflA.GetTypes() Console.WriteLine(fname) For Index = 0 To UBound(ReflA_Types) If ReflA_Types(Index).Namespace = "System.Resources" Or _ ReflA_Types(Index).Namespace = "System.Globalization" Then Console.WriteLine(" Found -> " + ReflA_Types(Index).FullName) System.Threading.Thread.Sleep(100) End If Next Console.WriteLine("End") Console.ReadLine() End Sub
End Module
</source>
ResourceReader demo
<source lang="vbnet"> 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
</source>
ResourceSet demo
<source lang="vbnet"> Imports System Imports System.Resources Module Module1
Sub Main() Dim Rs As New ResourceSet("my.resources") Console.WriteLine(Rs.GetString("first", True)) Console.WriteLine(Rs.GetString("second", True)) Console.WriteLine(Rs.GetString("third", True)) Console.WriteLine(Rs.GetString("fourth", True)) Console.WriteLine(Rs.GetString("not here", True)) Console.WriteLine(Rs.GetDefaultReader.ToString()) Rs.Close() End Sub
End Module
</source>
ResourceWriter demo
<source lang="vbnet"> Imports System Imports System.Collections Imports System.Resources Module Module1
Sub Main() Dim Rw As New ResourceWriter("my.resources") Dim Rr As ResourceReader Dim RrEn As IDictionaryEnumerator Rw.AddResource("key 1", "First value") Rw.AddResource("key 2", "Second value") Rw.AddResource("key 3", "Third value") Rw.Generate() Rw.Close() Rr = New ResourceReader("my.resources") RrEn = Rr.GetEnumerator Do While (RrEn.MoveNext) Console.WriteLine("Name: {0} - Value: {1}", RrEn.Key.ToString().PadRight(10, " "),RrEn.Value) Loop Rr.Close() End Sub
End Module
</source>
ResXResourceWriter Demo
<source lang="vbnet">
Imports System.Collections Imports System Imports System.Resources Imports System.Drawing Module Module1
Sub Main() Dim RwX As New ResXResourceWriter("my.resx") Dim RrX As ResXResourceReader Dim RrXEn As IDictionaryEnumerator RwX.AddResource("key 1", "First value") RwX.AddResource("key 2", "Second value") RwX.AddResource("key 3", "Third value") Dim img = Image.FromFile("a.jpg") RwX.AddResource("crane", img) RwX.Generate() RwX.Close() RrX = New ResXResourceReader("my.resx") RrXEn = RrX.GetEnumerator Do While (RrXEn.MoveNext) Console.WriteLine("Name: {0} - Value: {1}", RrXEn.Key.ToString().PadRight(10, " "c), RrXEn.Value) Loop RrX.Close() End Sub
End Module
</source>