使用Microsoft.DirectX.AudioVideoPlayback組件。
目前創(chuàng)新互聯(lián)公司已為上千家的企業(yè)提供了網(wǎng)站建設(shè)、域名、虛擬空間、網(wǎng)站托管、服務(wù)器托管、企業(yè)網(wǎng)站設(shè)計(jì)、定西網(wǎng)站維護(hù)等服務(wù),公司將堅(jiān)持客戶導(dǎo)向、應(yīng)用為本的策略,正道將秉承"和諧、參與、激情"的文化,與客戶和合作伙伴齊心協(xié)力一起成長,共同發(fā)展。
首先,需要安裝DirectX SDK.
DirectX 9.0c Redistributable
DirectX 9.0 SDK Update
然后將對Microsoft.DirectX.AudioVideoPlayback.dll的引用添加到你的項(xiàng)目。
使用這段代碼在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控件也能播放視頻。
右擊工具箱-選項(xiàng)- COM組件-定位并添加“Windows Media Player” ActiveX控件
然后“Windows Media Player”控件將會出現(xiàn)在工具箱上。將它拖動到窗體上來生產(chǎn)一個AxWindowsMediaPlayer1對象,并為URL屬性指定音頻或者視頻文件。
AxWindowsMediaPlayer1.URL = "D:\VideoOrAudio.wmv"
Media Player控件默認(rèn)將會自動播放文件。
首先要確定播放的視頻格式是什么格式,如果是windows media player支持的格式,直接使用該控件就行了,如果是單個視頻的話,比如命名為myPlayer,則:
myPlayer.url="視頻文件完整路徑"
“工具箱”中單擊右鍵,選擇“選擇項(xiàng)”菜單,打開“選擇工具箱項(xiàng)”窗口,選擇“COM組件”標(biāo)簽,在列表中找到并勾選“Windows Media Player”組件,單擊“確定”按鈕。將該組件添加到指定的工具箱選項(xiàng)卡中,然后在工具箱里面找 Windows Media Player 控件,拉到form里面,拉出來的控件就是AxWindowsMediaPlayer
最簡單的方法就是使用WindowsMediaPlayer控件。。。在工程----部件中找到WindowsMediaPlayer,然后打上勾,確定,接著將WindowsMediaPlayer控件添加到窗體上,最后在代碼中這樣:
private
sub
form_load()
WindowsMediaPlayer1.URL
=
"E:\FavoriteVideo\123.MP4"
end
sub
這樣,當(dāng)程序運(yùn)行時,會自動播放這個視頻。當(dāng)然也可以把視頻文件放到本程序相同的文件夾下:
把路徑改為
app.path
"\123.mp4"