Visual Basic资源文件的多种使用技巧

zzr525

一、 开发中英（简、繁）双版本
??现在比较流行的软件都会有中文版、英文版、繁体版等等多个版本，并可以根据系统的语言自动显示相适应的版本，那么这个功能在 VB 是如何实现得呢的：
9 \( B: }& K8 C9 j8 P' \5 z' d; S??1、 首先通过 API 函数GetSystemDefaultLCID 判断系统的语言
??Option Explicit
??Dim lang As String
??Private Declare Function GetSystemDefaultLCID Lib "kernel32" () As Long
) y& n5 Y0 R4 i??Private Sub Form_Load()
??Dim LocaleID As Long
* B" _# R: n* |??LocaleID = GetSystemDefaultLCID
  `" m( ^7 g6 W! G* H/ f?? Select Case LocaleID
?? Case &H404
?? MsgBox "当前系统为：中文繁体", , "语言"
6 W  Y! W; o3 y8 J) A: X?? Case &H804
?? MsgBox "当前系统为：中文简体", , "语言"
( h  F) s2 E# i. v) i?? lang = "1"
?? Case &H409
?? MsgBox "当前系统为：英文", , "语言"
?? lang = "2"
6 y, i' h3 e3 C7 W: \( k& l4 }+ ??? End Select
??End Sub
??2、然后程序就可以加载保存在资源文件（这里我们就是使用的这种方法）、注册表、INI 文件、文本文件或其他文件中的各类字符串，以达到达到实现多种语言的目的。
??⑴启动 VB6.0，在“外接程序→外接程序管理器”中加载“Visual Basic 6 资源编辑器”
; E- o4 N' Z* @??⑵在 VB 资源编辑器窗口中，点击“编辑字符串表格”输入如下资料：
- b" [2 l/ K  g' C" p??标识号 中文（中国）
* M2 w" Q6 [; Y??101 例子
- J3 ]* _8 ^! L6 I3 d' H$ l??102 中文
??103 英文
??201 Ensample
??202 Chinese
??203 English
2 J3 c7 ?% f7 @4 I4 J$ v" \6 d??⑶保存资源文件，写如下代码：（自定义装载字符的函数 LoadString）
* ]0 M% I5 v+ N8 U8 c/ n/ y??Sub LoadString()
6 c* _4 z4 G# [4 x& Y?? Me.Caption = LoadResString(Int(lang & "01"))
( g5 i& z/ R' q?? Command1(0).Caption = LoadResString(Int(lang & "02"))
?? Command1(1).Caption = LoadResString(Int(lang & "03"))
; _9 K0 ?6 @& q  ?) o??End Sub
1 i, [) C, Z0 x& N! j??⑷怎么样一个简单的中英双版本的程序就做出来了，如果把 lang 的值设置为 1，则显示中文，如果把 lang 的值设置为 2，则显示英文。
??二、 实现“绿色”软件
& P) e5 w8 h2 @9 y/ T??现在非常流行“绿色”软件，不需要什么安装程序只要一个 EXE 文件就可以运行程序
- \; B, K( D+ M4 `! b??了，而在 VB 的编程中有许多地方需要调用第三方的控件（很难用 API 函数搞定所有的功能），这就需要制做一个安装程序，把所需要的控件、DLL 文件或其他文件打包进去了，那么在 VB 中怎么用变通的方法实现“绿色”软件呢，请看：
; u& s  V1 E& B& n??示例：
??1、主程序.EXE
??用 VB6.0 编写的程序，调用了 Winsock 控件，如果在没有安装 VB5.0、6.0 的机器上运行则会出现错误，导致程序运行失败，这时如果按一般的方法，只有把这个程序用 VB5.0、6.0 的安装程序进行打包，不然只有用用2的方法来解决了。
2 F8 P: ~3 h7 D# d$ P??2、注册程序.EXE
??用 VB6.0 编写的程序，使用资源文件的方法，把 Winsock 控件封装到本程序中，在运行主程序.EXE之前，先运行本程序，通过 API 函数 GetSystemDirectory 取得系统的 Winddows\System 的目录，然后把 Winsock 控件复制到该目录下，并用 Shell 来完成控件的注册。
??⑴启动 VB6.0，在“外接程序→外接程序管理器”中加载“Visual Basic 6 资源编辑器”
??⑵在 VB 资源编辑器窗口中，点击“添加自定义资料”，增加 Winsock 控件（C：\Winddows\System\nsck.ocx），再双击刚刚创建的自定义资源，弹出”编辑属性”窗口，定义如下：
??类型： “OCX”
5 p- \# q& K/ V: y, s6 j- I9 n??标识号： 101
! p: y( q; P9 T8 O8 w$ \??语言： 中文（中国）
??⑶保存资源文件，写如下代码：
??Option Explicit
??Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
??Const MAX_PATH = 260 注释：定义足够长的字符串
  N4 f# r, Q% F- X& f$ p: o??Private Sub Form_Load()
( C1 y0 X  ]  v7 o) Z+ N??Dim TempFile() As Byte
??Dim FileNum As Integer
% m6 g- i* W3 ^" p: J- S, }??Dim TempDir As String
?? TempDir = GetWinSysDir 注释：自定义函数取得系统的 Winddows\System 的目录
?? TempFile = LoadResData(101, "OCX") 注释：用以从资源 (.res) 文件装载若干可能类型的数据，并返回一个 Byte 数组
?? FileNum = FreeFile
; Q4 [2 Q# N, ^?? Open TempDir & "\nsck.ocx" For Binary Access Write As #FileNum 注释：新建文件(把 Winsock 控件复制到指定目录下)
3 N$ n5 E- \/ O) g' _, S: o?? Put #FileNum, , TempFile
6 _1 p% U& M2 z7 ]?? Close #FileNum
" Q4 z& ~8 |: e) T) }' f??
  Q; u) |( `: e5 g( c+ {9 S" P?? 注释：Shell "regsvr32 " & TempDir & "\nsck.ocx ", vbNormalFocus 注释：注册控件,有弹出对话框
$ p5 g3 h0 {3 H+ A. j?? Shell "regsvr32 " & TempDir & "\nsck.ocx /s", vbNormalFocus 注释：注册控件,无弹出对话框
1 {3 j9 h& \5 L??
?? MsgBox "注册成功，现在本程序可正常运行了！！", vbOKOnly, "注册控件"
??
! F( H4 J6 }6 p2 c! a?? Unload Me
??End Sub
??
??Public Function GetWinSysDir() 注释：定义读取Winddows\System 的所在目录的函数
9 t, I- w* H1 R' a. g/ B??Dim S As String, Length As Long
??S = String(MAX_PATH, 0) 注释：赋值
??Length = GetSystemDirectory(S, MAX_PATH) 注释：S为取得目录，MAX_PATH 为长度
??S = Left(S, InStr(S, Chr(0)) - 1) 注释：去掉多余的空格
??GetWinSysDir = S
??End Function
+ r# r+ |  p% Y) ?1 H- B??注释：补充：S 和 MAX_PATH 的值是可以随便赋的，
??注释：如: Dim S As String * 20
??注释： Length = GetSystemDirectory(S, 20)
8 ^9 S) h0 B4 d' O! F% h??3、补充说明
??在用 VB6.0 保存上述两个程序后，请再使用 VB5.0 重新打开这两个程序，并编译为主程序.EXE、注册文件.EXE。（用 VB5.0 编译的程序，在 Win98、2000 下不需要任何 DLL 文件）
3 D3 {; z$ ^) m% o+ w* N??程序运行
??4、程序运行
9 Q7 g! Y, l) [??将主程序.EXE、注册文件.EXE两个文件，复制到任意机器上，先运行注册文件.EXE注册第三方的控件，再运行主程序.EXE，就不会有任何的错误了，一个变通的“绿色”软件就完成了。
1 {6 y6 N% ]9 k8 c  p6 H5 U??三、 直接播放EXE文件中的声音文件
6 P) P9 ~  C# Q9 J4 M??使用资源文件，可以直接在在EXE文件中播放声音文件（WAV文件），使程序显得更加专业。
# r7 I$ ?2 t1 m9 C# z??⑴启动 VB6.0，在“外接程序→外接程序管理器”中加载“Visual Basic 6 资源编辑器”
??⑵在 VB 资源编辑器窗口中，点击“添加自定义资料”，增加任意的 WAV 文件，再双击刚刚创建的自定义资源，弹出”编辑属性”窗口，定义如下：
??类型： "WAVE"
+ q$ ~" f5 b* f: Q5 b??标识号： 102
??语言： 中文（中国）
% H5 D5 w( P8 J8 Z$ L??⑶保存资源文件，写如下代码：
??Option Explicit
??Private Declare Function GetSystemDefaultLCID Lib "kernel32" () As Long
( W8 [% @6 k# a9 q* [??Private Declare Function sndPlaySoundFromMemory Lib "winmm.dll" Alias "sndPlaySoundA" (lpszSoundName As Any, ByVal uFlags As Long) As Long
??Public Const SND_ASYNC = &H1&
3 b& B' s/ I1 s" d6 E% N6 K??Public Const SND_MEMORY = &H4&
' b' W. t4 H) S6 _1 M) b& x' f??Private Sub Command5_Click() 注释：播放 WAV 文件
?? Dim bArr() As Byte
?? bArr = LoadResData(102, "WAVE")
?? sndPlaySoundFromMemory bArr(0), SND_ASYNC Or SND_MEMORY
# P5 c, O0 G! K$ b??End Sub
??⑷按 F5 运行本程序，点击 Command 按钮，就可以听到你选定的 WAV 文件的声音了。
8 f: l; j9 n( r??四、 直接调用各类图标、光标图片
; ^, K4 ~1 i/ k8 f8 g1 f??在一个程序中，我们可能需要调用多个图标、光标、图片文件，一般来说我们主要是使用 ImageList 控件，不过其时使用资源文件是最好的方法（可以少使用一个控件呀）。
??⑴启动 VB6.0，在“外接程序→外接程序管理器”中加载“Visual Basic 6 资源编辑器”
! j$ }8 w. {5 X: m2 O& ~; K??⑵在 VB 资源编辑器窗口中，点击“添加光标”，“添加图标”，“添加位图”，装载所需要的文件。
??⑶程序代码如下：
??Me.Icon = LoadResPicture(101, vbResIcon) 注释：加载图标
??Picture1.Picture = LoadResPicture(101, vbResBitmap) 注释：加载位图
; y( J3 c; m9 q??Command1.MouseIcon = LoadResPicture(101, vbResCursor) 注释：加载光标
???
) d% e  Y. @# @3 W??---------------------------------------------------
0 G6 T& H! k, T5 v5 u# H??
6 E8 K( d. @, y$ m  g* R??放一个控制RES资源释放背景音乐的例子：
  m0 Q, p3 n# s5 n. M% n- k" Y