【栏目分类】

返回上级

【最新文章】

【本类热门】

赚了吗联盟

【当前位置】：惠省一派 >> 轻松一刻 >>　正文

  • VB 中资源文件的多种使用技巧
    • 2020-12-15 13:48:48

  • >一、开发中英（简、繁）双版本



    >　　现在比较流行的软件都会有中文版、英文版、繁体版等等多个版本，并可以根据系统的语言自动显示相适应的版本，那么这个功能在 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 = 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 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 文件的声音了。



    >三、 直接调用各类图标、光标图片



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


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



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



    >　　⑶程序代码如下：



    >Me.Icon = LoadResPicture(101, vbResIcon) 注释：加载图标


    >Picture1.Picture = LoadResPicture(101, vbResBitmap) 注释：加载位图


    >Command1.MouseIcon = LoadResPicture(101, vbResCursor) 注释：加载光标

  • 作者：e4snake 浏览：8 评论：0

【相关文章】

【用户评论】

淘宝优惠券免费发放，领券后购买折上折！https://www.zlmlm.cn

惠省派,支持淘宝、品多多、京东等购物，自购省钱，分享赚钱！

ICP备案:申请备案中...　|　管理员信箱：xssoft#qq.com　|　版本：XSCMS 1.0
本站数据来自于网络,如有问题请告知,我们将尽快处理
页面执行时间: 0.1094秒  14次数据查询