绿色软件如何集成wav文件呀谢谢

ayaoaaa 2004-08-10 12:29:18

我想把.wav文件直接并到程序里，而不需要调用硬盘上的文件，谢谢啦，希望讲的详细一点

...全文

140 9 打赏收藏转发到动态举报

写回复

用AI写文章

9 条回复

切换为时间正序

请发表友善的回复…

发表回复

niefuhua 2005-01-07

打赏
举报

ayaoaaa 2004-08-10

打赏
举报

嘿又是 BlueBeer老兄呀，真是个热心人哦。你的帖子很长呀，明天再研究研究

BlueBeer 2004-08-10

打赏
举报

1、添加资源文件编辑器，
　　启动VB6.0的IDE集成环境，新建一个工种。点选菜单“Add －Ins”下的“Add －in Manager”,在弹出的对话框的列表框中选择“VB Resource (RES) Editor”,单击“OK“后退出对话框。这样在“Tools”菜单栏中就有一项“Resource Editor”了。打开这个工具就可以进行资源文件的编辑了。
　　2、编辑资源文件
　　在资源编辑器中编辑资源文件非常简单。它可是编辑我们在上面先提到的位图、图标、光标、字符串及定制资源五种类型的资源，如图1所示：
　　在进行编辑时，点击相应的图标就可以添加资源了。
　　编辑资源的方法也很容易，以添加图片为例看一看添加位图的方法：点击添加位图按钮，在弹出的对话框中选择一个位图文件，单击“OK”后，位图的添加就完成了，在这里要注意属性按钮，点击它以后，可以选择请语言版本并输入资源的ID号，这个ID号是标识一类资源的唯一编号，必须记住资源的ID号，以使在应用程序中调用。编辑好资源后，关闭资源编辑器，资文件自动加入新建的工种内。另外，也必须将资源文件保存。其它资源的编辑方法也大体上一样。
　　3、使用资源文件，在应用程序中调用资源文件与直接使用资源基本上是一致的。对了，在一个工种中只能保存一个资源文件，在使用资源文件之前，请必须保证资源已经加入到资源文件中了。
　　调用资源文件中资源的函数有：
　　LoadResString 返回一个文本字符串。语法：LoadResString(index) index必需是一个整数，它用来指定资源文件中数据的标识符（即经常提到的ID号），如果ID号为1的资源保留给应用程序图标。
　　LoadResPicture 用以从资源 (.res) 文件装载位图、图标或光标。它的语法：
　　LoadResPicture(index, format)
　　LoadResPicture 函数的语法包含下列部分：
　　参数描述
　　index 一个整数或字符串，它用来指定资源文件中数据的标识
　　符 (ID) 。ID标识符为 1 的资源保留给应用程序的图标。
　　format 必需的。一个数值或常数，如下列“设值"中所描述的，
　　指定返回数据的格式。
　　用于 format 的设置值有：
　　常数值描述
　　vbResBitmap 位数 0 位图资源
　　vbResIcon 图标 1 图标资源
　　vbResCursor 2 光标资源
　　说明：可以使用 LoadResPicture 函数代替对存储在 Form 或控件的 Picture 属性中的图形的引用。
　　LoadResData 返回一个Byte数组，用以从资源 (.res) 文件装载若干可能类型的数据。语法为：
　　LoadResData(index, format)
　　LoadResData 函数的语法包含下列部分：
　　部分描述
　　index 必需的。一个整数或字符串，它用来指定资源文件中数据的标识
　　符（ID)。ID 标识为 1 的资源保留给应用程序的图标。
　　Format 必需的。一个数值，它用来按照下列“设置值"中的描述，指定返
　　回数据的原始格式。该数值也可以是用户定义资源的字符串名。
　　设置值用于 format 的设置值有：
　　设置值描述
　　1 光标资源
　　2 位图资源
　　3 图标资源
　　4 菜单资源
　　5 对话框
　　6 字符串资源
　　7 字体目录资源
　　8 字体资源
　　9 加速键表
　　10 用户定义资源
　　12 群组光标
　　14 群组图标
　　说明：LoadResData 从资源文件装载的数据可以达到 64K。
　　最后我们用一个简单的例子来说明这几个函数的用法：
　　（1）建立一个窗体，在窗体上放置三个按钮,一个图片框用来显示图片、图标。其属性如图2所示。
　　按照前面讲述的方法添加资源文件编辑器并建立工程文件，里面包含一个字符串，位图、图标、光标和一个自定义的资源。
　　程序代码如下所示：
　　Private Sub cmdLoadData_Click()
　　Dim tt As Byte
　　End Sub
　　Private Sub cmdLoadPicture_Click()
　　picTest.Picture = LoadResPicture(101, 1)
　　'如何为0表示位图，为2表示光标
　　End Sub
　　Private Sub cmdLoadstring_Click()
　　Dim str As String
　　str = LoadResString(101)
　　MsgBox str
　　End Sub