您好!
創(chuàng)新互聯(lián)主要從事網(wǎng)站設(shè)計(jì)、成都網(wǎng)站設(shè)計(jì)、網(wǎng)頁設(shè)計(jì)、企業(yè)做網(wǎng)站、公司建網(wǎng)站等業(yè)務(wù)。立足成都服務(wù)商水,10年網(wǎng)站建設(shè)經(jīng)驗(yàn),價(jià)格優(yōu)惠、服務(wù)專業(yè),歡迎來電咨詢建站服務(wù):18982081108
系統(tǒng)自帶的播放器就是windowsmediaplayer,別無它選,語法:
windowsmediaplayer1.URL="c:\視頻.mp4"
或者也可以用picturebox來播放,代碼:
先要點(diǎn)“工程”,然后“引用”,然后勾選“ActiveMovie control type library”,這樣才能正常運(yùn)行
Option Explicit
Private Const WS_CHILD = H40000000
Private Const WS_CLIPCHILDREN = H2000000
Private m_FilGraph As FilgraphManager
Private m_Video As IVideoWindow
Private Sub Command1_Click() '播放按鈕
Dim strFileName As String
strFileName = "E:\電影\赤壁.rmvb" '電影的地址
Set m_FilGraph = New FilgraphManager
m_FilGraph.RenderFile strFileName
Set m_Video = m_FilGraph
With m_Video
.Owner = Picture1.hWnd 'Owner可以設(shè)置為任意窗口的句柄
.WindowStyle = WS_CHILD Or WS_CLIPCHILDREN
.Top = 0
.Left = 0
.Width = Picture1.Width / Screen.TwipsPerPixelX
.Height = Picture1.Height / Screen.TwipsPerPixelY
End With
m_FilGraph.Run
End Sub
回答完畢!
首先要確定播放的視頻格式是什么格式,如果是windows media player支持的格式,直接使用該控件就行了,如果是單個(gè)視頻的話,比如命名為myPlayer,則:
myPlayer.url="視頻文件完整路徑"
使用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)將會自動播放文件。
“工具箱”中單擊右鍵,選擇“選擇項(xiàng)”菜單,打開“選擇工具箱項(xiàng)”窗口,選擇“COM組件”標(biāo)簽,在列表中找到并勾選“Windows Media Player”組件,單擊“確定”按鈕。將該組件添加到指定的工具箱選項(xiàng)卡中,然后在工具箱里面找 Windows Media Player 控件,拉到form里面,拉出來的控件就是AxWindowsMediaPlayer
給你個(gè)解決方案,用VB.net自帶的AxWindowsMediaPlayer控件能解決
“工具箱”中單擊右鍵,選擇“選擇項(xiàng)”菜單,打開“選擇工具箱項(xiàng)”窗口,選擇“COM組件”標(biāo)簽,在列表中找到并勾選“Windows Media Player”組件,單擊“確定”按鈕。將該組件添加到指定的工具箱選項(xiàng)卡中 ,然后在工具箱里面找 Windows Media Player 控件,拉到form里面,拉出來的控件就是AxWindowsMediaPlayer
下面是使用方法:
AxWindowsMediaPlayer1.URL = "D:\123.avi" '--------只需要這么一句話就可以播放D盤123.avi
如果要暫停則: AxWindowsMediaPlayer1.Ctlcontrols.pause() '更多功能自己去摸索
網(wǎng)站名稱:vb.net怎么打開視頻的簡單介紹
本文URL:http://chinadenli.net/article22/dodescc.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供品牌網(wǎng)站設(shè)計(jì)、電子商務(wù)、微信小程序、用戶體驗(yàn)、標(biāo)簽優(yōu)化、商城網(wǎng)站
聲明:本網(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)