• 注册
  • 关于作者
    企业认证:趣记站长
    关注 6 粉丝 4 喜欢 9 内容 992
    江西省·南昌市
    聊天 送礼
    • 查看作者
    • VB 中资源文件的多种使用技巧

      一、开发中英(简、繁)双版本

        现在比较流行的软件都会有中文版、英文版、繁体版等等多个版本,并可以根据系统的语言自动显示相适应的版本,那么这个功能在 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 资源编辑器窗口中,

      用VB实现客户——服务器(TCP/IP)编程实例
      用VB创建FTP组件(get),Visual Basic构建线程安全的Singleton,如何实现VB与EXCEL的无缝连接,vb中利用xmlhttp来下载远程文件,vb中使用正则表达式,ASP.NET中Cookie编程的基础知识,MASM-打字练习程序,用VB制作注册软件的方法,VB程序中数据库的图片处理的解决方法,用VB编写键盘拦截程序,用VB实现客户——服务器(TCP/IP)编程实例,利用Visual Basic 实现无线通讯,VB 中资源文件的多种使用技巧,VB中资源文件的具体使用方法,vb接收GPS数据源码全,VB6中使用Winsock穿越各种代理的实现(TCP协议),VB实现文字“闪入”显示的特殊效果,VB对注册表操作程序开机时运行,VB将OCX植入执行文件内,利用VB函数Dir()实现递归搜索目录
      Visual Basic

      点击“添加自定义资料”,增加任意的 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) 注释:加载光标

      用VB实现客户——服务器(TCP/IP)编程实例
      用VB创建FTP组件(get),Visual Basic构建线程安全的Singleton,如何实现VB与EXCEL的无缝连接,vb中利用xmlhttp来下载远程文件,vb中使用正则表达式,ASP.NET中Cookie编程的基础知识,MASM-打字练习程序,用VB制作注册软件的方法,VB程序中数据库的图片处理的解决方法,用VB编写键盘拦截程序,用VB实现客户——服务器(TCP/IP)编程实例,利用Visual Basic 实现无线通讯,VB 中资源文件的多种使用技巧,VB中资源文件的具体使用方法,vb接收GPS数据源码全,VB6中使用Winsock穿越各种代理的实现(TCP协议),VB实现文字“闪入”显示的特殊效果,VB对注册表操作程序开机时运行,VB将OCX植入执行文件内,利用VB函数Dir()实现递归搜索目录
      Visual Basic

    • 0
    • 0
    • 0
    • 90
    • 单栏布局 侧栏位置: