關(guān)于vbnet播放視頻的信息
vb點(diǎn)虐 中的mediaplay控件播放視頻有圖像無(wú)聲音，何解？
該控件調(diào)用的是你的電腦上的播放器
專注于為中小企業(yè)提供成都網(wǎng)站制作、做網(wǎng)站、外貿(mào)營(yíng)銷網(wǎng)站建設(shè)服務(wù),電腦端+手機(jī)端+微信端的三站合一,更高效的管理,為中小企業(yè)忻城免費(fèi)做網(wǎng)站提供優(yōu)質(zhì)的服務(wù)。我們立足成都，凝聚了一批互聯(lián)網(wǎng)行業(yè)人才，有力地推動(dòng)了1000+企業(yè)的穩(wěn)健成長(zhǎng)，幫助中小企業(yè)通過(guò)網(wǎng)站建設(shè)實(shí)現(xiàn)規(guī)模擴(kuò)充和轉(zhuǎn)變。
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支持不僅以上格式，而且支持幾乎所有視頻格式，就請(qǐng)您下載安裝完美解碼這款軟件，安裝完后，在Windows Media Player的主菜單（鼠標(biāo)右鍵Windows Media Player窗口的頂端）當(dāng)中選擇工具--選項(xiàng)--DVD選項(xiàng)卡--高級(jí)--在彈出來(lái)的對(duì)話框中選擇“編碼解碼器”選項(xiàng)卡，在右面一側(cè)把顯示“未啟用”字樣的全部改為“l(fā)ibavcodec”字樣，單擊確定，然后，您會(huì)發(fā)現(xiàn)Windows Media Player支持很多格式（包括播放DVD、3GP）
vb點(diǎn)虐 中的mediaplay控件播放視頻有圖像無(wú)聲音
1． Beep
最簡(jiǎn)單的一種方法，通過(guò)計(jì)算機(jī)的揚(yáng)聲器發(fā)出聲響， 聲響的音高與持續(xù)時(shí)間取決于硬件和系統(tǒng)軟件，從而隨計(jì)算機(jī)不同而不同。
Beepg跟Msgbox等方法位于Microsoft.VisualBasic.Interaction 中，一般默認(rèn)系統(tǒng)會(huì)自動(dòng)加載。調(diào)用很簡(jiǎn)單，看下面的例子。
Dim I As Integer
For I = 1 To 100 ' Loop 100 times.
Beep() ' Sound a tone.
Next I
2． 用Win32 API PlaySound
PlaySound位于"winmm.dll"中，可以根據(jù)輸入?yún)?shù)的不同，播放WAV類型的音樂(lè)。在VB.NET中調(diào)用跟VB6中差不多：
先聲明：
Private Declare Auto Function PlaySound Lib "winmm.dll" (ByVal lpszSoundName As String, ByVal hModule As Integer, ByVal dwFlags As Integer) As Integer
Const SND_FILENAME As Integer = H20000
Const SND_ALIAS As Integer = H10000
Const SND_SYNC As Integer = H0
具體還有很多常量，不一一列舉，下面是播放一個(gè)wav文件的例子
Dim mstrfileName As String = "c:\eagle2.wav"
PlaySound(mstrfileName, 0, SND_FILENAME)
注意上面的播放是非同步的，就是說(shuō)它并不會(huì)播放完畢才結(jié)束。如果把上面的代碼寫在一個(gè)Button.Click的事件處理程序中，第二次點(diǎn)擊的時(shí)候它會(huì)打斷第一次的播放，重新開(kāi)始。
當(dāng)然我們也可以調(diào)用系統(tǒng)的聲音：
PlaySound("SystemStart", 0, SND_ALIAS Or SND_SYNC)
' 以同步的方式調(diào)用系統(tǒng)啟動(dòng)時(shí)候的聲音。
3． 調(diào)用媒體播放器控件
VB.NET中并沒(méi)有提供媒體播放器的.NET組件，沒(méi)辦法我們還是調(diào)用以前Com組件Windows Media Player。當(dāng)然除了聲音外，還可以播放視頻文件。
首先把媒體播放器控件加到工具欄中，調(diào)用還是簡(jiǎn)單的寫一下吧：）
Private Sub playMediaFile(ByVal mediaFileName As String)
With MediaPlayer1
.Stop()
.FileName = "c:\mp3\愛(ài)不愛(ài)我.mp3"
.Play()
End With
End Sub
vb點(diǎn)虐 中怎么調(diào)用DirectX來(lái)播放視頻
使用Microsoft.DirectX.AudioVideoPlayback組件。
首先，需要安裝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)播放文件。
本文名稱：關(guān)于vbnet播放視頻的信息
網(wǎng)站地址：http://m.jiaotiyi.com/article/ddcphei.html