使用Microsoft.DirectX.AudioVideoPlayback組件。
創(chuàng)新互聯(lián)主營(yíng)渾南網(wǎng)站建設(shè)的網(wǎng)絡(luò)公司,主營(yíng)網(wǎng)站建設(shè)方案,app開(kāi)發(fā)定制,渾南h5小程序定制開(kāi)發(fā)搭建,渾南網(wǎng)站營(yíng)銷推廣歡迎渾南等地區(qū)企業(yè)咨詢
首先,需要安裝DirectX SDK.
DirectX 9.0c Redistributable
DirectX 9.0 SDK Update
然后將對(duì)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
'以前收集的資料,沒(méi)用過(guò),你自己整整
2)使用Windows Media Player控件也能播放視頻。
右擊工具箱-選項(xiàng)- COM組件-定位并添加“Windows Media Player” ActiveX控件
然后“Windows Media Player”控件將會(huì)出現(xiàn)在工具箱上。將它拖動(dòng)到窗體上來(lái)生產(chǎn)一個(gè)AxWindowsMediaPlayer1對(duì)象,并為URL屬性指定音頻或者視頻文件。
AxWindowsMediaPlayer1.URL = "D:\VideoOrAudio.wmv"
Media Player控件默認(rèn)將會(huì)自動(dòng)播放文件。
首先要確定播放的視頻格式是什么格式,如果是windows media player支持的格式,直接使用該控件就行了,如果是單個(gè)視頻的話,比如命名為myPlayer,則:
myPlayer.url="視頻文件完整路徑"
關(guān)鍵在于“播放結(jié)束”事情的捕捉,播完后捕捉到該事件,然后就可以播下一個(gè)了。
VB不會(huì),但原理就那樣了,自己上CSDN上搜搜例子,祝你好運(yùn)。
“工具箱”中單擊右鍵,選擇“選擇項(xiàng)”菜單,打開(kāi)“選擇工具箱項(xiàng)”窗口,選擇“COM組件”標(biāo)簽,在列表中找到并勾選“Windows Media Player”組件,單擊“確定”按鈕。將該組件添加到指定的工具箱選項(xiàng)卡中,然后在工具箱里面找 Windows Media Player 控件,拉到form里面,拉出來(lái)的控件就是AxWindowsMediaPlayer