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

VB.NET使用了一种新的资源格式。RESX和Resources。

这里介绍如何读取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