VB.NET资源文件应用经验总结
创始人
2024-06-21 01:41:56
0

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

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

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

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

  1. Option Explicit  
  2. Dim lang As String  
  3. Private Declare Function 
    GetSystemDefaultLCID Lib 
    "kernel32" () As Long  
  4. Private Sub Form_Load()  
  5. Dim LocaleID As Long  
  6. LocaleID = GetSystemDefaultLCID 
  7. Select Case LocaleID  
  8. Case &H404  
  9. MsgBox "当前系统为:中文繁体", , "语言"  
  10. Case &H804  
  11. MsgBox "当前系统为:中文简体", , "语言"  
  12. lang = "1" 
  13. Case &H409  
  14. MsgBox "当前系统为:英文", , "语言"  
  15. lang = "2" 
  16. End Select  
  17. End Sub 

 

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

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

⑶保存资源文件,写如下代码:(自定义装载字符的函数 LoadString)

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

 

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

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

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

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

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

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

⑶保存资源文件,写如下代码:

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

 

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

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

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

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

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

⑶程序代码如下:

 

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

 

相关内容

热门资讯

如何允许远程连接到MySQL数... [[277004]]【51CTO.com快译】默认情况下,MySQL服务器仅侦听来自localhos...
如何利用交换机和端口设置来管理... 在网络管理中,总是有些人让管理员头疼。下面我们就将介绍一下一个网管员利用交换机以及端口设置等来进行D...
施耐德电气数据中心整体解决方案... 近日,全球能效管理专家施耐德电气正式启动大型体验活动“能效中国行——2012卡车巡展”,作为该活动的...
Windows恶意软件20年“... 在Windows的早期年代,病毒游走于系统之间,偶尔删除文件(但被删除的文件几乎都是可恢复的),并弹...
20个非常棒的扁平设计免费资源 Apple设备的平面图标PSD免费平板UI 平板UI套件24平图标Freen平板UI套件PSD径向平...
德国电信门户网站可实时显示全球... 德国电信周三推出一个门户网站,直观地实时提供其安装在全球各地的传感器网络检测到的网络攻击状况。该网站...
着眼MAC地址,解救无法享受D... 在安装了DHCP服务器的局域网环境中,每一台工作站在上网之前,都要先从DHCP服务器那里享受到地址动...
为啥国人偏爱 Mybatis,... 关于 SQL 和 ORM 的争论,永远都不会终止,我也一直在思考这个问题。昨天又跟群里的小伙伴进行...