三九宝宝网宝宝教育计划总结

如何在vb窗口播放背景音乐

12月24日 编辑 39baobao.com

[请问什么dj或mc最好听最适合做空间背景音乐要求很嗨的]酷狗听: 轮回-欢快-意大利经典 气氛 噢噢噢慢DJ舞曲 DJ-舞曲-经典男声说唱 DJ-意大利超爽高档大气口哨舞曲 Dj - 2008 - 锁洋上传 极品汽车慢摇舞曲 DJ-极限极速狂嗨推荐 MC-...+阅读

一般就用MCI控件或者MCI的API实现。以前做一个小游戏,用的是API,音乐部分代码如下: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 Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long Private sWin As String Private sFail As String Private sStart As String Private sFight As String Public sCurrent As String Private Function GetShortName(ByVal sLongFileName As String) As String Dim lRetVal As Long, sShortPathName As String, iLen As Integer Dim ChineseCharacter As Long sShortPathName = Space(255) iLen = LenB(sShortPathName) lRetVal = GetShortPathName(sLongFileName, sShortPathName, iLen) ChineseCharacter = LenB(StrConv(sShortPathName, vbFromUnicode)) - Len(sShortPathName) GetShortName = Left(sShortPathName, lRetVal - ChineseCharacter) End Function Private Sub Play(S As String) mciSendString "close MEDIA", vbNullString, 0, 0 mciSendString "open " & GetShortName(S) & " alias MEDIA", vbNullString, 0, 0 mciSendString "play MEDIA", vbNullString, 0, 0 End Sub Public Sub PlaySong(Name As String) Form1.tmrAudio.Enabled = True Select Case Name Case "fail" Play sFail sCurrent = "fail" Case "fight" Play sFight sCurrent = "fight" Case "start" Play sStart sCurrent = "start" Case "win" Play sWin sCurrent = "win" End Select End Sub Public Sub BuildString(ResFolder As String) sFail = ResFolder & "failv6.mp3" sWin = ResFolder & "winv6.mp3" sStart = ResFolder & "startv6.mp3" sFight = ResFolder & "fightv6.mp3" End Sub Private Sub Class_Terminate() mciSendString "close MEDIA", vbNullString, 0, 0 End Sub Public Sub StopIt() mciSendString "close MEDIA", vbNullString, 0, 0 End Sub

以下为关联文档:

给我几个空间背景音乐电音?嘿嘿虽然不多,但是首首都是经典啊。希望你会喜欢。[经典第一波:]01)timetorock(很多人极力推荐的DJ,不得不听呀!)02)yeah-亚瑟小子(超级好听!)03)walkinginthesun04)DanceNow(凤舞九天...

一些好莱坞经典电影都经常用的背景音乐是什么名字啊乱世佳人---Gone with the wind 卧虎藏龙---Crounching tiger, Hidden dragon 无极---Wu Ji 太阳帝国---the Sun solar 教父---the Godfather 太空漫游---这个忘了咋写,稍等...

适合机械舞背景音乐的歌曲有哪些donna lewis - I could be the one SUNSHINE IN THE RAIN 星星- VITAS Audition_U Know Bonny - Cara Dillon Far Away From Home Gorillaz_-_Feel_Good_Inc Groove Coverag...

求DNF视频的背景音乐很明显是I've的曲风按歌词搜下就是 歌名:WeSurvive 作词:KOTOKO 作曲:C.Gmix 歌手:KOTOKO 歌词: 微笑む涙导く风は 优しい匂い惯れた温もり 今限りある世界と空际の果てに 感情た...

求DNF视频背景音乐很明显是I've的曲风 按歌词搜下就是 歌名:We Survive 作词:KOTOKO 作曲:C.G mix 歌手:KOTOKO 歌词: 微笑む涙 导く风は 优しい匂い 惯れた温もり 今限りある世界と 空际の果てに...

急求网页添加背景音乐的代码要用到音乐地址麻烦给的格式举个之间加入 第一种:在页面代码中的 这段代码。 在这里要说的是,“loop”中的数值是音乐循环的次数,可设置为任意正整数,若设为“-1”的话,音乐将永远循环。 这种背景音乐是打开叶子...

HTML背景音乐代码和带背景音乐的网页代码要兼容多浏览器的最好<object data="music.mp3" type="application/x-mplayer2" width="0" height="0"&gt; //定义数据文件(包含路径),类型和高宽等信息 <param name="src" value="music.mp3"&gt; //添加参数,参数...

我要网页背景音乐代码加音乐关闭按扭type="application/x-mplayer2" pluginspage="http://.microsoft.com/isapi/redir.dll?prd=windows&;sbp=mediaplayer&ar=media&sba=plugin&" name="MediaPlayer" autostart="1" def...

VB如何播放背景音乐兄弟 代码较多 你可以给出邮箱吗?我直接发给你源码。不过如果你不需要所有的功能你可以参考下面的代码。只是部分,因为还有一个模块没有。 Dim ier As Boolean Private Sub Co...

推荐阅读
图文推荐