в 16:40, 26 мая 2010

2010-05-26T16:40:06Z

Admin: 1 версия

2010-05-26T12:42:59Z

1 версия

Новая страница

==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>

← Предыдущая	Версия 16:40, 26 мая 2010
(нет различий)

VB.Net/GUI/Resources - История изменений

в 16:40, 26 мая 2010

Admin: 1 версия