代碼是沒有錯(cuò)的,但是其中關(guān)鍵是聲音文件資源定義字串必須使用根命名空間,不能用程序集名稱;還有就是聲音文件必須選屬性為嵌入資源。
公司主營業(yè)務(wù):成都網(wǎng)站制作、成都網(wǎng)站建設(shè)、移動網(wǎng)站開發(fā)等業(yè)務(wù)。幫助企業(yè)客戶真正實(shí)現(xiàn)互聯(lián)網(wǎng)宣傳,提高企業(yè)的競爭能力。成都創(chuàng)新互聯(lián)公司是一支青春激揚(yáng)、勤奮敬業(yè)、活力青春激揚(yáng)、勤奮敬業(yè)、活力澎湃、和諧高效的團(tuán)隊(duì)。公司秉承以“開放、自由、嚴(yán)謹(jǐn)、自律”為核心的企業(yè)文化,感謝他們對我們的高要求,感謝他們從不同領(lǐng)域給我們帶來的挑戰(zhàn),讓我們激情的團(tuán)隊(duì)有機(jī)會用頭腦與智慧不斷的給客戶帶來驚喜。成都創(chuàng)新互聯(lián)公司推出太康免費(fèi)做網(wǎng)站回饋大家。
My.Computer.Audio.Play(My.Resources.xxxmusic1xxx, AudioPlayMode.Background)
使用Microsoft.DirectX.AudioVideoPlayback組件。
首先,需要安裝DirectX SDK.
DirectX 9.0c Redistributable
DirectX 9.0 SDK Update
然后將對Microsoft.DirectX.AudioVideoPlayback.dll的引用添加到你的項(xiàng)目。
使用這段代碼在Panel控件上放置一個(gè)視頻文件:
ImportsMicrosoft.DirectX.AudioVideoPlayback
Public Class Form1
Private Sub Form1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs) Handles MyBase.Load
Dim videoFile As Audio =New Audio("D:\Video1.avi")
videoFile.Owner = Panel1
videoFile.Play()
EndSub
EndClass
'以前收集的資料,沒用過,你自己整整
2)使用Windows Media Player控件也能播放視頻。
右擊工具箱-選項(xiàng)- COM組件-定位并添加“Windows Media Player” ActiveX控件
然后“Windows Media Player”控件將會出現(xiàn)在工具箱上。將它拖動到窗體上來生產(chǎn)一個(gè)AxWindowsMediaPlayer1對象,并為URL屬性指定音頻或者視頻文件。
AxWindowsMediaPlayer1.URL = "D:\VideoOrAudio.wmv"
Media Player控件默認(rèn)將會自動播放文件。
該控件調(diào)用的是你的電腦上的播放器
Windows Media Player本身支持的視頻格式很少 (有.wmv、.wvx、.asf、.asx、.wpl、.wm、.wmx、.wmd 和 .wmz .vob、.avi、.mpeg、.mpg、.mpe、.m1v、.mp2、.mpv2、.mp2v 和 .mpa ),而且您的計(jì)算機(jī)上面必須安裝很多解碼器才能完全支持這些格式 ,所以您下載的電影有可能不能播放。
如果您想讓W(xué)indows Media Player支持不僅以上格式,而且支持幾乎所有視頻格式,就請您下載安裝完美解碼這款軟件,安裝完后,在Windows Media Player的主菜單(鼠標(biāo)右鍵Windows Media Player窗口的頂端)當(dāng)中選擇工具--選項(xiàng)--DVD選項(xiàng)卡--高級--在彈出來的對話框中選擇“編碼解碼器”選項(xiàng)卡,在右面一側(cè)把顯示“未啟用”字樣的全部改為“l(fā)ibavcodec”字樣,單擊確定,然后,您會發(fā)現(xiàn)Windows Media Player支持很多格式(包括播放DVD、3GP)
用API mciSendString可以同時(shí)播放多個(gè)聲音,需要提供路徑。
資源文件很麻煩,要用反射讀取出來,再用IO寫到磁盤路徑。
你是做游戲把?軟糖建議是不要使用資源文件,而使用本地文件。
用個(gè)BGM文件夾保存背景音樂,用SE文件夾保存音效(學(xué)習(xí)RPG Maker的做法)
API代碼奉上,具體實(shí)現(xiàn)模塊字?jǐn)?shù)超過最大值,請下載附件
Imports?System.Text
'''?summary
'''?可播放MPEG,AVI,WAV,MP3,MID,WMA等格式的音頻文件,*不支持OGG
'''?/summary
Public?Class?音頻設(shè)備
'聲明API函數(shù):?mciSendString
System.Runtime.InteropServices.DllImport("winmm.dll",?EntryPoint:="mciSendString")
Public?Shared?Function?mciSendString(strCommand?As?String,
strReturn?As?StringBuilder,
iReturnLength?As?Integer,
hwndCallback?As?Integer)?As?Integer
End?Function
'聲明API函數(shù):?mciGetErrorString
System.Runtime.InteropServices.DllImport("winmm.dll",?EntryPoint:="mciSendString")
Public?Shared?Function?mciGetErrorString(errCode?As?Integer,
errMsg?As?StringBuilder,
buflen?As?Integer)?As?Integer
調(diào)用方法
Public?Class?Form1
Dim?音頻設(shè)備?As?New?音頻設(shè)備
Private?Sub?Button1_Click(sender?As?Object,?e?As?EventArgs)?Handles?Button1.Click
Dim?路徑?=?"F:\音樂文件名.mp3"
音頻設(shè)備.打開("自定義名稱1",?路徑)
音頻設(shè)備.播放("自定義名稱1")
'音頻設(shè)備.暫停("自定義名稱1")
'音頻設(shè)備.繼續(xù)("自定義名稱1")
'音頻設(shè)備.關(guān)閉("自定義名稱1")
End?Sub
End?Class
如滿意,請采納,還有不懂的請追問,謝謝。
網(wǎng)站名稱:vb.net播放 vb播放視頻
網(wǎng)站URL:http://www.chinadenli.net/article2/dddopoc.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供標(biāo)簽優(yōu)化、網(wǎng)站改版、Google、微信公眾號、搜索引擎優(yōu)化、定制開發(fā)
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來源: 創(chuàng)新互聯(lián)