请教：VB如何使用资源文件？

Question

先在你的资源文件的源文件 RC 文件加入下面一行： 
  MySound WAVE c:\music\vanhalen.wav   然后将其编译为 RES 文件。
  再使用下面的声明及代码： 
Private Declare Function PlaySound Lib _ "winmm.dll" Alias "PlaySoundA" ( _
ByVal lpszName As String, _
ByVal hModule As Long, _
ByVal dwFlags As Long) As Long
Private Const SND_ASYNC& = &H1 
Private Const SND_NODEFAULT& = &H2 
Private Const SND_RESOURCE& = &H40004 
Dim hInst As Long 
Dim sSoundName As String 
Dim lFlags As Long 
Dim lRet As Long 
Private Sub Command1_Click() 
hInst = App.hInstance 
sSoundName = "MySound" 
lFlags = SND_RESOURCE + SND_ASYNC + _ SND_NODEFAULT 
lRet = PlaySound(sSoundName, hInst, lFlags) 
End Sub

Answer 1

资源文件 金蝉脱壳具体做法如下：第一步：将要用到的控件拷贝到当前工程目录下，右键单击该控件，选择属性，记下文件大小。注意，应记下以字节为单位的具体数字，而不是多少K，以备编程使用。第二步：引用并正常使用该控件。 第三步：新建资源文件加入工程，在资源文件编辑器中添加所使用的第三方控件为自定义资源（CUSTOM），资源号使用默认的101。如果使用了多个控件则分别添加到资源文件的101、102......资源项中，脱壳代码也要作相应的修改。第四步：编写控件脱壳代码，使其读取资源文件的数据，在程序当前目录下生成控件。代码如下：Private Const OCXSIZE = 57344 '欲生成的控件大小是57344Byte,名字为CoolToolBar.ocxSub Main()
　Dim Ocx() As Byte 'OCX是个Btye类型的数组
　Dim Counter As Long
　Ocx = LoadResData(101, "CUSTOM") '将自定义资源中101号资源读入数组OCX
　'注意，微软的帮助中对加载自定义资源的说明有错误，自定义资源标识为"CUSTOM"而不是帮助所说的数字10　If Right(App.Path, 1) = "\" Then '读取程序所在路径,判断是否为根目录并分别处理
　　'程序在根目录下
　　If Dir(App.Path & "CoolToolBar.ocx") = "" Then '程序路径下有无控件,无则生成控件
　　　'以二进制方式写（生成）控件（CoolToolBar.ocx）到主程序所在的目录 
　　　Open App.Path & "CoolToolBar.ocx" For Binary As #1 
　　　For Counter = 0 To OCXSIZE - 1 '注意因为从0 Byte开始因此以文件大小 - 1Byte 为终值
　　　　Put #1, , Ocx(Counter)
　　　Next Counter
　　　Close #1
　　End if 
　Else
　　'程序不在根目录下
　　If Dir(App.Path & "\CoolToolBar.ocx") = "" Then '程序路径下有无控件,无则生成控件
　　　'以二进制方式写（生成）控件（CoolToolBar.ocx）到主程序所在的目录 
　　　Open App.Path & "\CoolToolBar.ocx" For Binary As #1
　　　For Counter = 0 To OCXSIZE - 1 '注意因为从0 Byte开始因此以文件大小 - 1Byte 为终值
　　　　Put #1, , Ocx(Counter)
　　　Next Counter
　　　Close #1
　　End if
　End if
　Form1.Visible = True '主程序所用控件已经生成，显示主窗体，进入主程序。
End Sub注意：将以上代码作为一个模块添加到工程中，并在工程-工程属性设置中将启动对象选为Sub Main,即上面的脱壳代码。然后编译生成EXE文件，将该EXE文件拷贝到其他没有安装所用控件的计算机上运行一下看看是否实现了控件携带之金蝉脱壳。如果是那么OK！以上为使用一个控件的情况，使用多个控件方法基本相同，不在赘述。

Answer 2

先在外接程序中配置加载资源编辑器，工具栏中就会有它的按钮，
然后就可以添加各类资源数据
程序中用相应的函数调用各类数据
LoadResData
LoadResPicture
LoadResString

Answer 3

先选菜单上的外接程序--外接程序管理器--选中资源编缉器加载它,然后
在VB的工具栏上多了一个和注册表的图标差不多的东东(资源编缉器),打
开它,然后在资源编缉器上的工具条上点一下编缉字符串表格,双击在101
的那个空格输入"BLIZZARD",然后存盘.
dim strName as string
   strName=loadresstring(101)
   debug.print strName     'strName 的值就是BLIZZARD