MFC中为对话框添加背景音乐


 发布时间:2021-05-13 02:39:26

《around the world》《moves like jagger》《insomnia》《one for da money》《what makes you beautiful》《so in love》《The Click Five - Good Day》《Frankmusik - Wrecking Ball》《happy boys girls》《要看吗》《R.I.O - Like I Love You》《sharp-眼泪》《sweat - a la la la long》《Cascada - San Framcisco》《Hello Mr.Super boy》《Jessie J – Domino》《Adam Lambert - Trespassing》《大张伟 - 范儿》《皇家礼炮》。

添加mmcontrol控件,在引用中Microsoft Multimedia Control 6.0(sp3) load 中 MMControl1.Notify = False MMControl1.Wait = True MMControl1.Shareable = False MMControl1.DeviceType = "WaveAudio" MMControl1.FileName = "D:\PlatformTicket\Windows 登录音.wav" MMControl1.Command = "Open" MMControl1.Command = "Play" 然后可以在定时器里 If MMControl1.mode = 525 Then '检查是否停止 MMControl1.Command = "Prev" MMControl1.Command = "Play" End If 进行循环播放 最后在unload中 MMControl1.Command = "Close" 关闭播放器 或者 Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long Private Sub Form_Load() mciSendString "open C:\birthday.mid alias mc", 0, 0, 0 mciSendString "play mc", 0, 0, 0 End Sub 或者   使用Microsoft Visual Basic进行多媒体音乐的播放是一件非常容易的事情。

Microsoft Windows系统中支持两种声音文件:WAV格式文件和MIDI格式文件,一般使用API(Window s应用程序编程接口)函数sndPlaySound播放WAV格式文件,使用mciExecute函数来播放MIDI文件。1、播放WAV格式文件   要播放WAV格式文件,你必须在程序窗口的通用声明部分或标准模块中添加如下的声明:   Public Const SND_SYNC = &&H0   Public Const SND_ASYNC = &&H1   Public Const SND_NODEFAULT = &&H2   Public Const SND_MEMORY = &&H4   Public Const SND_ALIAS = &&H10000   Public Const SND_FILENAME = &&H20000   Public Const SND_RESOURCE = &&H40004   Public Const SND_ALIAS_ID = &&H110000   Public Const SND_ALIAS_START = 0   Public Const SND_LOOP = &&H8   Public Const SND_NOSTOP = &&H10   Public Const SND_VALID = &&H1F   Public Const SND_NOWAIT = &&H2000   Public Const SND_VALIDFLAGS = &&H17201F   Public Const SND_RESERVED = &&HFF000000   Public Const SND_TYPE_MASK = &&H170007   Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long   sndPlaySound函数需要两个参数:第一个参数soundfilename是要播放的WAV文件的名称;第二个参数是一个表明播放方式的标识常量,其定义的值如前面的声明所示,通常所使用的标识意义如下:   SND_SYNC播放WAV格式文件,播放完毕后将控制转移回应用中。

SND_ASYNC播放WAV格式文件,将控制立即转移回应用程序中,而不管对WAV文件的播放是否结束。SND_MEMORY用于播放以前已经加载到内存中的WAV格式文件。SND_LOOP循环播放WAV格式文件。注意:SND_LOOP标识通常需要同SND_ASYNC共同使用,也即在两个标识之间添加“与”播放符,以免在对WAV格式文件进行播放的时候将系统挂起。2、播放MIDI格式文件   播放MIDI格式文件时,你必须在程序窗口的通用声明部分中或标准模块中添加如下的声明语句:   Private Declare Function mciExecute Lib "winmm.dll" Alias "mciExecute" (ByVal lpstrCommand As String) As Long   API函数mciExecute只有一个参数:CommandString,它是一个命令字符串,用于表明对声音文件播放的命令,例如,要完整播放声音文件“C:WindowsMediaCanyon.mid”,只需要用以下一些语句即可实现:   Dim ReturnValue As Long   ReturnSoundValue = mciExecute("play C:WindowsMediaCanyon.mid")   如果只播放MIDI格式文件的部分,就可以使用from...to...这种语句格式,例如:需要播放CANYON.MID文件的20毫秒到500毫秒的部分,可以使用如下的语句:   Dim ReturnValue As Long   ReturnSoundValue = mciExecute("play C: WINDOWS MEDIACANYON.MID from 20 to 500")   使用API函数mciExecute也可以用来对WAV格式文件进行播放,方法同播放MIDI基本一样。

现举列如下:   1、在Visual Basic应用窗体中加入以下声明:   Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long   Const SND_SYNC = &&H0   Const SND_ASYNC = &&H1   Const SND_NODEFAULT = &&H2   Const SND_MEMORY = &&H4   Const SND_ALIAS = &&H10000   Const SND_FILENAME = &&H20000   Const SND_RESOURCE = &&H40004   Const SND_ALIAS_ID = &&H110000   Const SND_ALIAS_START = 0   Const SND_LOOP = &&H8   Const SND_NOSTOP = &&H10   Const SND_VALID = &&H1F   Const SND_NOWAIT = &&H2000   Const SND_VALIDFLAGS = &&H17201F   Const SND_RESERVED = &&HFF000000   Const SND_TYPE_MASK = &&H170007   Private Declare Function mciExecute Lib "winmm.dll" Alias "mciExecute" (ByVal lpstrCommand As String) As Long   2、在窗中激活事件中加入以下代码:   Private Sub Form_Activate()   Dim ReturnValue As Long   ReturnValue = sndPlaySound("C:windowsMEDIATADA.WAV",SND_SYNC)End Sub   通过(F5)键来运行该程度即可听到背景音乐。

参数 对话框 背景音乐

上一篇: 我的诺基亚N95 8GB音质非常差为什么?是不是都这样?后盖

下一篇: 舞蹈艺术反映社会生活和塑造人物的艺术手法大致有几种



发表评论:
相关推荐
网站首页 | 网站地图

Copyright © 2012-2020 红装歌曲网 版权所有 2.35959