我以前做的時候,是監(jiān)視背景音樂的播放模式狀態(tài)的,這樣來按照不同的要求進行不同的操作!
創(chuàng)新互聯(lián)建站服務(wù)項目包括烏什網(wǎng)站建設(shè)、烏什網(wǎng)站制作、烏什網(wǎng)頁制作以及烏什網(wǎng)絡(luò)營銷策劃等。多年來,我們專注于互聯(lián)網(wǎng)行業(yè),利用自身積累的技術(shù)優(yōu)勢、行業(yè)經(jīng)驗、深度合作伙伴關(guān)系等,向廣大中小型企業(yè)、政府機構(gòu)等提供互聯(lián)網(wǎng)行業(yè)的解決方案,烏什網(wǎng)站推廣取得了明顯的社會效益與經(jīng)濟效益。目前,我們服務(wù)的客戶以成都為中心已經(jīng)輻射到烏什省份的部分城市,未來相信會繼續(xù)擴大服務(wù)區(qū)域并繼續(xù)獲得客戶的支持與信任!
在.NET里,沒有托管的音樂播放器,用API只能播放WAV格式,對于MP3等形式的音頻文件,就要依賴于其他控件了,常用的就是
MediaPlayer。使用方法:
在工具箱上點右鍵,選擇“選擇項目(Choose Items)”,切到COM選項卡,找到 Windows Media Player, 勾選,確定
在t工具箱上,把剛才加入的MediaPlayer控件,拖放到窗體上
代碼:
WindowsMediaPlayer1.URL = "mp3文件路徑,支持網(wǎng)絡(luò)路徑"
WindowsMediaPlayer1.Ctlcontrols.play
基本就OK了,至于其他的操作諸如下一曲上一曲暫停停止,直接看 WindowsMediaPlayer1.Ctlcontrols. 里面的方法吧。
找1986年3月3日生的人
誰和我是同年同月同日、出生的
加我QQ183746999
需要用到多線程。
用vb.net很好搞,而且vb.net的控件vb能調(diào)用,所以你說的問題比較簡單。
你現(xiàn)在要做的就是用vb.net搞一個控件,做個放音方法,執(zhí)行后開一個放音樂的線程,然后把這個控件讓vb調(diào)用。
VB調(diào)用api做多線程很復(fù)雜,得不償失
聲明:
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
代碼:
Dim returnstring As String
FileName As String
returnstring = Space(127)
FileName = "C:\A1.avi"
erg = mciSendString("open " Chr$(34) FileName Chr$(34) " type avivideo alias video", returnstring, 127, 0)
erg = mciSendString("set video time format ms", returnstring, 127, 0)
erg = mciSendString("play video from 0", returnstring, 127, 0)
'記著關(guān)閉!
erg = mciSendString("close video", returnstring, 127, 0)
如果聲音在資源文件內(nèi)
假設(shè)這個聲音文件的關(guān)鍵字為"HAHA",先定義一個API函數(shù):
Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (lpszSoundName As Any, Byval uFlags As Long) As Long
注意:必須把的lpszSoundName類型設(shè)成Any,不能按照win32api.txt文件中的定義
Const SND_ASYNC = H1
Const SND_MEMORY = H4
再輸入如下代碼:
Dim Toms() As Byte
Toms=LoadResData("HAHA","WAVE")
sndPlaySound Toms(0), SND_MEMORY Or SND_ASYNC
這樣就OK了!
文章題目:vb.net演奏音樂 vb播放背景音樂
本文來源:http://muchs.cn/article44/doccehe.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供網(wǎng)站設(shè)計、標(biāo)簽優(yōu)化、網(wǎng)站營銷、App設(shè)計、動態(tài)網(wǎng)站、做網(wǎng)站
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)