VB.NET资源文件应用经验总结

VB.NET编程语言中的资源文件应用方法有许多种，开发人员可以根据自己不同的需求来进行选择。我们在这里就为大家总结了几种常见的VB.NET资源文件应用技巧，希望能给大家带来一些帮助。

扶沟网站制作公司哪家好，找成都创新互联公司！从网页设计、网站建设、微信开发、APP开发、成都响应式网站建设等网站项目制作，到程序开发，运营维护。成都创新互联公司从2013年开始到现在10年的时间，我们拥有了丰富的建站经验和运维经验，来保证我们的工作的顺利进行。专注于网站建设就选成都创新互联公司。

一、VB.NET资源文件开发中英（简、繁）双版本

现在比较流行的软件都会有中文版、英文版、繁体版等等多个版本，并可以根据系统的语言自动显示相适应的版本，那么这个功能在 vb 是如何实现得呢的：

1、首先通过 API 函数GetSystemDefaultLCID 判断系统的语言

 
 
   
  
  Option Explicit    
  
  Dim lang As String    
  
  Private Declare Function 
GetSystemDefaultLCID Lib 
"kernel32" () As Long    
  
  Private Sub Form_Load()    
  
  Dim LocaleID As Long    
  
  LocaleID = GetSystemDefaultLCID   
  
  Select Case LocaleID    
  
  Case &H404    
  
  MsgBox "当前系统为：中文繁体", , "语言"    
  
  Case &H804    
  
  MsgBox "当前系统为：中文简体", , "语言"    
  
  lang = "1"   
  
  Case &H409    
  
  MsgBox "当前系统为：英文", , "语言"    
  
  lang = "2"   
  
  End Select    
  
  End Sub

2、然后程序就可以加载保存在资源文件（这里我们就是使用的这种方法）、注册表、INI 文件、文本文件或其他文件中的各类字符串，以达到达到实现多种语言的目的。
⑴启动 vb6.0，在“外接程序→外接程序管理器”中加载“Visual Basic 6 资源编辑器”

⑵在 vb 资源编辑器窗口中，点击“编辑字符串表格”输入如下资料：
标识号中文（中国）
101     例子
102     中文
103     英文
201     Ensample
202     Chinese
203     English

⑶保存资源文件，写如下代码：（自定义装载字符的函数 LoadString）

 
 
   
  
  Sub LoadString()    
  
  Me.Caption = LoadRes
String(Int(lang & "01"))    
  
  Command1(0).Caption = 
LoadResString(Int(lang & "02"))    
  
  Command1(1).Caption = 
LoadResString(Int(lang & "03"))    
  
  End Sub

⑷怎么样一个简单的中英双版本的程序就做出来了，如果把 lang 的值设置为 1，则显示中文，如果把 lang 的值设置为 2，则显示英文。#t#

ps：更简单实用的方法是:把不同语言文字放在同一个标识号ID对应的不同字符串表格中即可。vb 会自动实现多种语言转换!

二、 VB.NET资源文件直接播放EXE文件中的声音文件

使用资源文件，可以直接在在EXE文件中播放声音文件（WAV文件），使程序显得更加专业。

⑴启动 vb6.0，在“外接程序→外接程序管理器”中加载“Visual Basic 6 资源编辑器”

⑵在 vb 资源编辑器窗口中，点击“添加自定义资料”，增加任意的 WAV 文件，再双击刚刚创建的自定义资源，弹出”编辑属性”窗口，定义如下：
类型： "WAVE"
标识号： 102
语言：中文（中国）

⑶保存资源文件，写如下代码：

 
 
   
  
  Option Explicit    
  
  Private Declare Function
 GetSystemDefaultLCID Lib
 "kernel32" () As Long    
  
  Private Declare Function 
sndPlaySoundFromMemory Lib 
"winmm.dll" Alias "sndPlaySoundA" 
(lpszSoundName As Any, ByVal
 uFlags As Long) As Long    
  
  Public Const SND_ASYNC = &H1&    
  
  Public Const SND_MEMORY = &H4&    
  
  Private Sub Command5_Click() 
注释：播放 WAV 文件    
  
  Dim bArr() As Byte    
  
  bArr = LoadResData(102, "WAVE")    
  
  sndPlaySoundFromMemory bArr(0), 
SND_ASYNC Or SND_MEMORY    
  
  End Sub

⑷按 F5 运行本程序，点击 Command 按钮，就可以听到你选定的 WAV 文件的声音了。

三、 VB.NET资源文件直接调用各类图标、光标图片

在一个程序中，我们可能需要调用多个图标、光标、图片文件，一般来说我们主要是使用 ImageList 控件，不过其时使用资源文件是最好的方法（可以少使用一个控件呀）。

⑴启动 vb6.0，在“外接程序→外接程序管理器”中加载“Visual Basic 6 资源编辑器”

⑵在 vb 资源编辑器窗口中，点击“添加光标”，“添加图标”，“添加位图”，装载所需要的文件。

⑶程序代码如下：

 
 
   
  
  Me.Icon = LoadResPicture
(101, vbResIcon) 注释：加载图标    
  
  Picture1.Picture = LoadResPicture
(101, vbResBitmap) 注释：加载位图    
  
  Command1.MouseIcon = LoadResPicture
(101, vbResCursor) 注释：加载光

分享标题：VB.NET资源文件应用经验总结
文章源于：http://www.shufengxianlan.com/qtweb/news33/397283.html

网站建设、网络推广公司-创新互联，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源：创新互联

猜你还喜欢下面的内容