【搬运】VB.NET创建和使用RESX资源

Imports System.Resources
Imports System.IO
Public Class Form1
Dim rp As String = Application.StartupPath & "\MyRes.resx"
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'创建
Dim rw As New ResXResourceWriter(rp) '创建一个资源写入流
rw.AddResource("res1", "这是一个文本") '添加一个资源(资源ID,资源数据) 写入文本
rw.AddResource("res2", My.Resources.GIF_e001) '写入图像
rw.AddResource("res3", New Byte() {1, 2, 3, 4}) '写入数组
With My.Resources.Sou0 '对于特殊文件（比如流）进行序列化准备
Dim b(.Length - 1) As Byte '声明足够的缓冲区
.Read(b, 0, .Length - 1)
rw.AddResource("res4", b) '写入音频
.Close()
End With
'……
rw.Close() '关闭流
MsgBox("OK", MsgBoxStyle.Information)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If Not File.Exists(rp) Then Return
'使用
Dim fr As FileStream = File.OpenRead(rp) '示例从流中读取资源
Dim rr As New ResXResourceReader(rp) '创建一个资源读取流
Dim id As IDictionaryEnumerator = rr.GetEnumerator '创建资源ID枚举
id.MoveNext() '开始枚举推进
MsgBox("资源ID为: " & id.Entry.Key)
MsgBox("资源类型为: " & id.Entry.Value.GetType.Name)
Me.Text = id.Value '使用字符 (请根据资源类型来使用资源)
id.MoveNext() '推进至下一资源
Me.BackgroundImage = id.Value '使用图像
id.MoveNext()
Dim b() As Byte = id.Value
MsgBox("资源内的字节数组大小: " & b.Length) '使用数组
id.MoveNext()
b = id.Value '获取音频数据字节组
Dim ms As New MemoryStream(b) '创建一个内存流
My.Computer.Audio.Play(ms, AudioPlayMode.Background) '播放这个音频
ms.Close() : rr.Close() '关闭内存流和资源流
MsgBox("OK!", MsgBoxStyle.Information)
End Sub
End Class