VB中资源文件的多种使用技巧

热门软件: QQ 瑞星 pplive e话通木马克星千千静听 office2000 五笔字根 Photoshop 视频分割

返回文章教程首页 >> 编程技术 >> VB & VB.NET教程 >> VB中资源文件的多种使用技巧

VB中资源文件的多种使用技巧

添加时间: 2006-2-12 9:19:52 作者: VB教程阅读次数:142 来源: http://www.d9soft.com

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

　　现在比较流行的软件都会有中文版、英文版、繁体版等等多个版本，并可以根据系统的语言自动显示相适应的版本，那么这个功能在 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 资源编辑器窗口中，点击“编辑字符串表格笔淙肴缦伦柿希?BR>　　标识号中文（中国）

　　　　101 例子

　　　　102 中文

　　　　103 英文

　　　　201 Ensample

　　　　202 Chinese

　　　　203 English

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

　　现在比较流行的软件都会有中文版、英文版、繁体版等等多个版本，并可以根据系统的语言自动显示相适应的版本，那么这个功能在 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 资源编辑器窗口中，点击“编辑字符串表格笔淙肴缦伦柿希?BR>　　标识号中文（中国）

　　　　101 例子

　　　　102 中文

　　　　103 英文

　　　　201 Ensample

　　　　202 Chinese

　　　　203 English

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

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

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

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

　　⑶程序代码如下：

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

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

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

上下文章:

上一篇文章: 再谈无边框窗体的操作下一篇文章: 探索VB系列中的事件处理的奥秘

相关文章:

相关软件:

字母检索 A B C D E F G H I J K L M N O P Q R S T U V W X Y Z 回到顶部