【转】VB6.0资源文件的多种使用技巧

转自：http://www.waywellstudio.cn/article.asp?id=25
加载保存在资源文件里的字符串，以达到达到实现多种语言的目的。
⑴启动 VB6.0，在“外接程序→外接程序管理器”中加载“Visual Basic 6 资源编辑器”
⑵在 VB 资源编辑器窗口中，点击“编辑字符串表格”输入如下资料：
标识号 中文（中国）
101 例子
102 中文
103 英文
⑶保存资源文件，写如下代码：（自定义装载字符的函数 LoadString）

程序代码

Sub LoadString()
Me.Caption = LoadResString(”101″))
Command1(0).Caption = LoadResString(Int(l”102″))
Command1(1).Caption = LoadResString(Int(”103″))
End Sub

直接播放EXE文件中的声音文件

使用资源文件，可以直接在在EXE文件中播放声音文件（WAV文件），使程序显得更加专业。
⑴启动 VB6.0，在“外接程序→外接程序管理器”中加载“Visual Basic 6 资源编辑器”

⑵在 VB 资源编辑器窗口中，点击“添加自定义资料”，增加任意的 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) 注释：加载光标