发信人: plindge()
整理人: cobe(2001-07-10 09:13:17), 站内信件
|
【 在 coolest-bird (不死鸟) 的大作中提到: 】
: 在VB5.0中，如何为程序加入背景音乐且此程序经编译、安装后，能脱离磁盘上的
:
: 原音乐文件而播放此音乐？
你可以利用资源文件来实现。
但背景音乐不能大于64K
例如，我想播放 MUSIC.WAV
可以这样做：
1.新建工程，加入FORM1，COMMANDBUTTON（COMMAND1），
加入一个资源文件（SOUND.RES），添加自定义资源，选择MUSIC.WAV
设置资源文件属性：类型："WAV"，标识号："SOUND"
2.开始编程。
加入模块：sound.bas
声明如下：
Option Explicit
Declare Function sndPlaySound Lib "winmm" Alias _
"sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long
Public Const SND_SYNC = &H0
Public Const SND_ASYNC = &H1
Public Const SND_NODEFAULT = &H2
Public Const SND_MEMORY = &H4
Public Const SND_LOOP = &H8
Public Const SND_NOSTOP = &H10
' 按钮1(command1)用来播放
Private Sub Command1_Click()
Dim rc As String
rc = sndPlaySound(LoadResData("SOUND", "WAV"), SND_SYNC)
End Sub
'***********************************************
'* 欢迎光临品琳居 http://plindge.163.net
'* http://plindge.yeah.net http://aming.isme.net
'***********************************************
--
---欢迎光临品琳居---
一个情感交流与编程交流的清幽小居！
大量VB源程序、VFP商用源程序供下载！
Http://plindge.163.net
Http://plindge.yeah.net
---欢迎光临品琳居---
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 202.104.213.42]
|
|