【VB开源代码栏目提醒】：网学会员VB开源代码为您提供如何制作和利用VB资源文件 - 计算机教材参考，解决您在如何制作和利用VB资源文件 - 计算机教材学习中工作中的难题，参考学习。

    

本文介绍了 Visual Basic 中资源文件的多种使用技巧：①开发中英（简、繁）双版本的技巧；②实现“绿色”软件；③直接播放声音文件；④保存各类图标、光标图片等等。

     在 Visual Basic 中资源文件的多种使用技巧 一、 开发中英（简、繁）双版本 现在比较流行的软件都会有中文版、英文版、繁体版等等多个版本，并可以根据系统的语言自动显示相适应的版本，那么这个功能在 VB 是如何实现得呢的： 1、 首先通过 API 函数GetSystemDefaultLCID 判断系统的语言 Option Explicit Dim lang As String Private Declare Function GetSystemDefaultLCID Lib quotkernel32quot As Long Private Sub Form_Load Dim LocaleID As Long LocaleID GetSystemDefaultLCID Select Case LocaleID Case H404 MsgBox quot当前系统为：中文繁体quot quot语言quot Case H804 MsgBox quot当前系统为：中文简体quot quot语言quot lang quot1quot Case H409 MsgBox quot当前系统为：英文quot quot语言quot lang quot2quot 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 LoadResStringIntlang quot01quot Command10.Caption LoadResStringIntlang quot02quot Command11.Caption LoadResStringIntlang quot03quot End Sub ⑷怎么样一个简单的中英双版本的程序就做出来了，如果把 lang 的值设置为 1，则显示中文，如果把 lang 的值设置为 2，则显示英文。

     二、 实现“绿色”软件 现在非常流行“绿色”软件，不需要什么安装程序只要一个 EXE 文件就可以运行程序 了，而在 VB 的编程中有许多地方需要调用第三方的控件（很难用 API 函数搞定所有的功能），这就需要制做一个安装程序，把所需要的控件、DLL 文件或其他文件打包进去了，那么在 VB 中怎么用变通的方法实现“绿色”软件呢，请看： 示例： 1、主程序.EXE 用 VB6.0 编写的程序，调用了 Winsock 控件，如果在没有安装 VB5.0、6.0 的机器上运行则会出现错误，导致程序运行失败，这时如果按一般的方法，只有把这个程序用 VB5.0、6.0 的安装程序进行打包，不然只有用用2的方法来解决了。

     2、注册程序.EXE 用 VB6.0 编写的程序，使用资源文件的方法，把 Winsock 控件封装到本程序中，在运行主程序.EXE之前，先运行本程序，通过 API 函数 GetSystemDirectory 取得系统的 WinddowsSystem 的目录，然后把 Winsock 控件复制到该目录下，并用 Shell 来完成控件的注册。

     ⑴启动 VB6.0，在“外接程序→外接程序管理器”中加载“Visual Basic 6 资源编辑器” ⑵在 VB 资源编辑器窗口中，点击“添加自定义资料”，增加 Winsock 控件（C：WinddowsSystemMswinsck.ocx），再双击刚刚创建的自定义资源，弹出”编辑属性”窗口，定义如下： 类型： “OCX” 标识号： 101 语言： 中文（中国） ⑶保存资源文件，写如下代码： Option Explicit Private Declare Function GetSystemDirectory Lib quotkernel32quot Alias quotGetSystemDirectoryAquot ByVal lpBuffer As String ByVal nSize As Long As Long Const MAX_PATH 260 注释：定义足够长的字符串 Private Sub Form_Load Dim TempFile As Byte Dim FileNum As Integer Dim TempDir As String TempDir GetWinSysDir 注释：自定义函数取得系统的 WinddowsSystem 的目录 TempFile LoadResData101 quotOCXquot 注释：用以从资源 .res 文件装载若干可能类型的数据，并返回一个 Byte 数组 FileNum FreeFile Open TempDir quotMswinsck.ocxquot For Binary Access Write As FileNum 注释：新建文件把 Winsock 控件复制到指定目录下 Put FileNum TempFile Close FileNum 注释：Shell quotregsvr32 quot TempDir quotMswinsck.ocx quot vbNormalFocus 注释：注册控件有弹出对话框 Shell quotregsvr32 quot TempDir quotMswinsck.ocx /squot vbNormalFocus 注释：注册控件无弹出对话框 MsgBox quot注册成功，现在本程序可正常运行了！！quot vbOKOnly quot注册控件quot Unload Me End Sub Public Function GetWinSysDir 注释：定义读取WinddowsSystem 的所在目录的函数 Dim S As String Length As Long S StringMAX_PATH 0 注释：赋值 Length GetSystemDirectoryS MAX_PATH 注释：S为取得目录，MAX_PATH 为长度 S LeftS InStrS Chr0 - 1 注释：去掉多余的空格 GetWinSysDir S End Function 注释：补充：S 和 MAX_PATH 的值是可以随便赋的， 注释：如: Dim S As String 20 注释： Length GetSystemDirectoryS 20 3、补充说明 在用 VB6.0 保存上述两个程序后，请再使用 VB5.0 重新打开这两个程序，并编译为主程序.EXE、注册文件.EXE。

    （用 VB5.0 编译的程序，在 Win98、2000 下不需要任何 DLL 文件） 程序运行 4、程序运行 将主程序.EXE、注册文件.EXE两个文件，复制到任意机器上，先运行注册文件.EXE注册第三方的控件，再运行主程序.EXE，就不会有任何的错误了，一个变通的“绿色”软件就完成了。

     三、 直接播放EXE文件中的声音文件 使用资源文件，可以直接在在EXE文件中播放声音文件（WAV文件），使程序显得更加专业。

     ⑴启动 VB6.0，在“外接程序→外接程序管理器”中加载“Visual Basic 6 资源编辑器” ⑵在 VB 资源编辑器窗口中，点击“添加自定义资料”，增加任意的 WAV 文件，再双击刚刚创建的自定义资源，弹出”编辑属性”窗口，定义如下： 类型： quotWAVEquot 标识号： 102 语言： 中文（中国） ⑶保存资源文件，写如下代码： Option Explicit Private Declare Function GetSystemDefaultLCID Lib quotkernel32quot As Long Private Declare Function sndPlaySoundFromMemory Lib quotwinmm.dllquot Alias quotsndPlaySoundAquot 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 LoadResData102 quotWAVEquot sndPlaySoundFromMemory bArr0 SND_ASYNC Or SND_MEMORY End Sub ⑷按 F5 运行本程序，点击 Command 按钮，就可以听到你选定的 WAV 文件的声音了。

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

     ⑴启动 VB6.0，在“外接程序→外接程序管理器”中加载“Visual Basic 6 资源编辑器” ⑵在 VB 资源编辑器窗口中，点击“添加光标”，“添加图标”，“添加位图”，装载所需要的文件。

     ⑶程序代码如下： Me.Icon LoadResPicture101 vbResIcon 注释：加载图标 Picture1.Picture LoadResPicture101 vbResBitmap 注释：加载位图 Command1.MouseIcon LoadResPicture101 vbResCursor 注释：加载光标 五、到此为此资源文件的多种使用技巧全部介绍完毕，希望这些技巧对大家的编程有帮助，上述程序全部在 Win98、VB5.0或6.0下运行通过