您的位置:首页> 电脑专栏>内容正文
VB中资源文件的多种使用技巧
[正文]:一、开发中英（简、繁）双版本 现在比较流行的软件都会有中文版、英文版、繁体版等等多个版本，并可以根据系统的语言自动显示相适应的版本，那么这个功能在 vb 是如何实现得呢的：1、 首先通过 api 函数getsystemdefaultlcid 判断系统的语言option explicitdim lang as stringprivate declare function getsystemdefaultlcid lib "kernel32" () as longprivate sub form_load()dim localeid as longlocaleid = getsystemdefaultlcidselect case localeidcase &h404msgbox "当前系统为：中文繁体", , "语言"case &h804msgbox "当前系统为：中文简体", , "语言"lang = "1"case &h409msgbox "当前系统为：英文", , "语言"lang = "2"end selectend sub2、然后程序就可以加载保存在资源文件（这里我们就是使用的这种方法）、注册表、ini 文件、文本文件或其他文件中的各类字符串，以达到达到实现多种语言的目的。
⑴启动 vb6.0，在“外接程序→外接程序管理器”中加载“visual basic 6 资源编辑器” ⑵在 vb 资源编辑器窗口中，点击“编辑字符串表格”输入如下资料： 标识号 中文（中国） 101 例子 102 中文 103 英文 201 ensample 202 chinese 203 english ⑶保存资源文件，写如下代码：（自定义装载字符的函数 loadstring）sub loadstring()me.caption = loadresstring(int(lang & "01"))command1(0).caption = loadresstring(int(lang & "02"))command1(1).caption = loadresstring(int(lang & "03"))end sub ⑷怎么样一个简单的中英双版本的程序就做出来了，如果把 lang 的值设置为 1，则显示中文，如果把 lang 的值设置为 2，则显示英文。
ps：更简单实用的方法是:把不同语言文字放在同一个标识号id对应的不同字符串表格中即可。
vb 会自动实现多种语言转换!二、 直接播放exe文件中的声音文件 使用资源文件，可以直接在在exe文件中播放声音文件（wav文件），使程序显得更加专业。
⑴启动 vb6.0，在“外接程序→外接程序管理器”中加载“visual basic 6 资源编辑器” ⑵在 vb 资源编辑器窗口中，点击“添加自定义资料”，增加任意的 wav 文件，再双击刚刚创建的自定义资源，弹出”编辑属性”窗口，定义如下： 类型： "wave" 标识号： 102 语言： 中文（中国） ⑶保存资源文件，写如下代码：option explicitprivate declare function getsystemdefaultlcid lib "kernel32" () as longprivate declare function sndplaysoundfrommemory lib "winmm.dll" alias "sndplaysounda" (lpszsoundname as any, byval uflags as long) as longpublic const snd_async = &h1&public const snd_memory = &h4&private sub command5_click() 注释：播放 wav 文件dim barr() as bytebarr = loadresdata(102, "wave")sndplaysoundfrommemory barr(0), snd_async or snd_memoryend sub ⑷按 f5 运行本程序，点击 command 按钮，就可以听到你选定的 wav 文件的声音了。
三、 直接调用各类图标、光标图片 在一个程序中，我们可能需要调用多个图标、光标、图片文件，一般来说我们主要是使用 imagelist 控件，不过其时使用资源文件是最好的方法（可以少使用一个控件呀）。
⑴启动 vb6.0，在“外接程序→外接程序管理器”中加载“visual basic 6 资源编辑器” ⑵在 vb 资源编辑器窗口中，点击“添加光标”，“添加图标”，“添加位图”，装载所需要的文件。
⑶程序代码如下：me.icon = loadrespicture(101, vbresicon) 注释：加载图标picture1.picture = loadrespicture(101, vbresbitmap) 注释：加载位图command1.mouseicon = loadrespicture(101, vbrescursor) 注释：加载光标
网站首页 培训课程 维修指南
技术文章 家电专栏 供应信息
求购信息 培训资讯 展会信息
电脑专栏 教程下载 资料下载
常用软件 PLC教程 PLC资料
变频伺服 低压电器 维修资料
人机界面 自控仪表 工控机类
文章标题:
中国工控资源网手机版 2012
电话：010-67577139 13811659603
培训咨询QQ：657167934 471895637 销售咨询QQ：623769457
联系邮箱：zggkzyw@163.com
京ICP备11002135号
报时(2026-04-05 00:16:23)