教你如何制作和利用VB资源文件.pdf

《教你如何制作和利用VB资源文件.pdf》由会员分享，可在线阅读，更多相关《教你如何制作和利用VB资源文件.pdf（9页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、教你如何制作和利用VB资源文件本文介绍了VisualBasic 中资源文件的多种使用技巧：开发中英（简、繁）双版本的技巧；实现“绿色”软件；直接播放声音文件；保存各类图标、光标图片等等。-在 VisualBasic 中资源文件的多种使用技巧一、开发中英（简、繁）双版本现在比较流行的软件都会有中文版、英文版、繁体版等等多个版本，并可以根据系统的语言自动显示相适应的版本，那么这个功能在VB 是如何实现得呢的：1、首先通过API 函数 GetSystemDefaultLCID判断系统的语言OptionExplicitDim langAs StringPrivateDeclare FunctionGe

2、tSystemDefaultLCIDLib"kernel32"()As LongPrivateSub Form_Load()Dim LocaleIDAs LongLocaleID=GetSystemDefaultLCIDSelectCase LocaleIDCase&H404MsgBox"当前系统为：中文繁体","语言"Case&H804MsgBox"当前系统为：中文简体","语言"lang="1"Case&H409MsgBox"当前系统为：英文",&qu

3、ot;语言"lang="2"End SelectEnd Sub2、然后程序就可以加载保存在资源文件（这里我们就是使用的这种方法）、注册表、INI文件、文本文件或其他文件中的各类字符串，以达到达到实现多种语言的目的。启动 VB6.0，在“外接程序外接程序管理器”中加载“VisualBasic 6 资源编辑器”在 VB 资源编辑器窗口中，点击“编辑字符串表格”输入如下资料：标识号 中文（中国）101 例子102 中文103 英文201 Ensample202 Chinese203 English保存资源文件，写如下代码：（自定义装载字符的函数LoadString）Su

4、b 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，则显示英文。二、实现“绿色”软件现在非常流行“绿色”软件，不需要什么安装程序只要一个EXE文件就可以运行程序了，而在V

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

6、.EXE之前，先运行本程序，通过 API 函数 GetSystemDirectory取得系统的WinddowsSystem的目录，然后把Winsock 控件复制到该目录下，并用Shell来完成控件的注册。启动 VB6.0，在“外接程序外接程序管理器”中加载“VisualBasic 6 资源编辑器”在 VB 资源编辑器窗口中，点击“添加自定义资料”，增加Winsock 控件（C：WinddowsSystemMswinsck.ocx），再双击刚刚创建的自定义资源，弹出”编辑属性”窗口，定义如下：类型：“OCX”标识号：101语言：中文（中国）保存资源文件，写如下代码：OptionExplicitP

7、rivateDeclare FunctionGetSystemDirectoryLib"kernel32"Alias"GetSystemDirectoryA"(ByVal lpBufferAsString,ByVal nSize As Long)As LongConst MAX_PATH=260 注释：定义足够长的字符串PrivateSub Form_Load()Dim TempFile()As ByteDim FileNum As IntegerDim TempDir As StringTempDir=GetWinSysDir 注释：自定义函数取得系统

8、的WinddowsSystem的目录TempFile=LoadResData(101,"OCX")注释：用以从资源(.res)文件装载若干可能类型的数据，并返回一个Byte 数组FileNum=FreeFileOpenTempDir"Mswinsck.ocx"For Binary AccessWriteAs#FileNum 注释：新建文件(把 Winsock 控件复制到指定目录下)Put#FileNum,TempFileClose#FileNum注释：Shell"regsvr32"&TempDir"Mswinsck.ocx&

9、quot;,vbNormalFocus 注释：注册控件,有弹出对话框Shell"regsvr32"&TempDir"Mswinsck.ocx/s",vbNormalFocus 注释：注册控件,无弹出对话框MsgBox"注册成功，现在本程序可正常运行了！",vbOKOnly,"注册控件"Unload MeEnd SubPublicFunctionGetWinSysDir()注释：定义读取WinddowsSystem的所在目录的函数Dim S As String,Length As LongS=String(MAX_P

10、ATH,0)注释：赋值Length=GetSystemDirectory(S,MAX_PATH)注释：S 为取得目录，MAX_PATH 为长度S=Left(S,InStr(S,Chr(0)-1)注释：去掉多余的空格GetWinSysDir=SEnd Function注释：补充：S和 MAX_PATH 的值是可以随便赋的，注释：如:Dim S As String*20注释：Length=GetSystemDirectory(S,20)3、补充说明在用 VB6.0 保存上述两个程序后，请再使用VB5.0 重新打开这两个程序，并编译为主程序.EXE、注册文件.EXE。（用 VB5.0编译的程序，在W

11、in98、2000 下不需要任何DLL 文件）程序运行4、程序运行将主程序.EXE、注册文件.EXE两个文件，复制到任意机器上，先运行注册文件.EXE注册第三方的控件，再运行主程序.EXE，就不会有任何的错误了，一个变通的“绿色”软件就完成了。三、直接播放 EXE文件中的声音文件使用资源文件，可以直接在在EXE文件中播放声音文件（WAV文件），使程序显得更加专业。启动 VB6.0，在“外接程序外接程序管理器”中加载“VisualBasic 6 资源编辑器”在 VB 资源编辑器窗口中，点击“添加自定义资料”，增加任意的 WAV文件，再双击刚刚创建的自定义资源，弹出”编辑属性”窗口，定义如下：类型

12、："WAVE"标识号：102语言：中文（中国）保存资源文件，写如下代码：OptionExplicitPrivateDeclare FunctionGetSystemDefaultLCIDLib"kernel32"()As LongPrivateDeclare FunctionsndPlaySoundFromMemoryLib"winmm.dll"Alias"sndPlaySoundA"(lpszSoundName As Any,ByVal uFlagsAs Long)As LongPublicConst SND_A

13、SYNC=&H1&PublicConst SND_MEMORY=&H4&PrivateSub Command5_Click()注释：播放WAV文件Dim bArr()As BytebArr=LoadResData(102,"WAVE")sndPlaySoundFromMemorybArr(0),SND_ASYNCOr SND_MEMORYEnd Sub按 F5 运行本程序，点击 Command 按钮，就可以听到你选定的 WAV文件的声音了。四、直接调用各类图标、光标图片在一个程序中，我们可能需要调用多个图标、光标、图片文件，一般来说我们主要是使用ImageList控件，不过

14、其时使用资源文件是最好的方法（可以少使用一个控件呀）。启动 VB6.0，在“外接程序外接程序管理器”中加载“VisualBasic 6 资源编辑器”在 VB 资源编辑器窗口中，点击“添加光标”，“添加图标”，“添加位图”，装载所需要的文件。程序代码如下：Me.Icon=LoadResPicture(101,vbResIcon)注释：加载图标Picture1.Picture=LoadResPicture(101,vbResBitmap)注释：加载位图Command1.MouseIcon=LoadResPicture(101,vbResCursor)注释：加载光标五、到此为此资源文件的多种使用技巧全部介绍完毕，希望这些技巧对大家的编程有帮助，上述程序全部在VB6.0下运行通过