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