vb.net中的mediaplay控件播放視頻有圖像無聲音

　1． Beep

站在用戶的角度思考問題，與客戶深入溝通，找到承留網(wǎng)站設(shè)計與承留網(wǎng)站推廣的解決方案，憑借多年的經(jīng)驗(yàn)，讓設(shè)計與互聯(lián)網(wǎng)技術(shù)結(jié)合，創(chuàng)造個性化、用戶體驗(yàn)好的作品，建站類型包括：成都做網(wǎng)站、網(wǎng)站設(shè)計、外貿(mào)營銷網(wǎng)站建設(shè)、企業(yè)官網(wǎng)、英文網(wǎng)站、手機(jī)端網(wǎng)站、網(wǎng)站推廣、域名申請、網(wǎng)頁空間、企業(yè)郵箱。業(yè)務(wù)覆蓋承留地區(qū)。

最簡單的一種方法，通過計算機(jī)的揚(yáng)聲器發(fā)出聲響， 聲響的音高與持續(xù)時間取決于硬件和系統(tǒng)軟件，從而隨計算機(jī)不同而不同。

Beepg跟Msgbox等方法位于Microsoft.VisualBasic.Interaction 中，一般默認(rèn)系統(tǒng)會自動加載。調(diào)用很簡單，看下面的例子。

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類型的音樂。在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

具體還有很多常量，不一一列舉，下面是播放一個wav文件的例子

Dim mstrfileName As String = "c:\eagle2.wav"

PlaySound(mstrfileName, 0, SND_FILENAME)

注意上面的播放是非同步的，就是說它并不會播放完畢才結(jié)束。如果把上面的代碼寫在一個Button.Click的事件處理程序中，第二次點(diǎn)擊的時候它會打斷第一次的播放，重新開始。

當(dāng)然我們也可以調(diào)用系統(tǒng)的聲音：

PlaySound("SystemStart", 0, SND_ALIAS Or SND_SYNC)

' 以同步的方式調(diào)用系統(tǒng)啟動時候的聲音。

3． 調(diào)用媒體播放器控件

VB.NET中并沒有提供媒體播放器的.NET組件，沒辦法我們還是調(diào)用以前Com組件Windows Media Player。當(dāng)然除了聲音外，還可以播放視頻文件。

首先把媒體播放器控件加到工具欄中，調(diào)用還是簡單的寫一下吧：）

Private Sub playMediaFile(ByVal mediaFileName As String)

With MediaPlayer1

.Stop()

.FileName = "c:\mp3\愛不愛我.mp3"

.Play()

End With

End Sub

vb.net中的mediaplay控件播放視頻有圖像無聲音，何解？

該控件調(diào)用的是你的電腦上的播放器

Windows Media Player本身支持的視頻格式很少 （有.wmv、.wvx、.asf、.asx、.wpl、.wm、.wmx、.wmd 和 .wmz .vob、.avi、.mpeg、.mpg、.mpe、.m1v、.mp2、.mpv2、.mp2v 和 .mpa ），而且您的計算機(jī)上面必須安裝很多解碼器才能完全支持這些格式 ,所以您下載的電影有可能不能播放。

如果您想讓W(xué)indows Media Player支持不僅以上格式，而且支持幾乎所有視頻格式，就請您下載安裝完美解碼這款軟件，安裝完后，在Windows Media Player的主菜單（鼠標(biāo)右鍵Windows Media Player窗口的頂端）當(dāng)中選擇工具--選項--DVD選項卡--高級--在彈出來的對話框中選擇“編碼解碼器”選項卡，在右面一側(cè)把顯示“未啟用”字樣的全部改為“l(fā)ibavcodec”字樣，單擊確定，然后，您會發(fā)現(xiàn)Windows Media Player支持很多格式（包括播放DVD、3GP）

vb.net內(nèi)嵌的視頻怎么用media player控件播放?。?/h2>

“工具箱”中單擊右鍵，選擇“選擇項”菜單，打開“選擇工具箱項”窗口，選擇“COM組件”標(biāo)簽，在列表中找到并勾選“Windows Media Player”組件，單擊“確定”按鈕。將該組件添加到指定的工具箱選項卡中，然后在工具箱里面找 Windows Media Player 控件，拉到form里面，拉出來的控件就是AxWindowsMediaPlayer

vb.net中怎么調(diào)用DirectX來播放視頻

使用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”控件將會出現(xiàn)在工具箱上。將它拖動到窗體上來生產(chǎn)一個AxWindowsMediaPlayer1對象,并為URL屬性指定音頻或者視頻文件。

AxWindowsMediaPlayer1.URL = "D:\VideoOrAudio.wmv"

Media Player控件默認(rèn)將會自動播放文件。

vb.net中使用Axwindowsmediaplayer控件播放資源文件中的wmv

resources資源文件是基于流的模型讀取到內(nèi)存中的沒法轉(zhuǎn)換成URL！

你在程序運(yùn)行目錄下添加一個文件夾然后把MP3文件拷貝進(jìn)去。

然后：winmp.url = Application .StartupPath "\文件夾\***.mp3"

如果非得要在resources資源文件中播放，只能用System.Media.SoundPlayer類

Dim msp As New System.Media.SoundPlayer(My.Resources.***)

msp.Play()

SoundPlayer類只支持WAV，打包后的程序是巨大的?。。?/p>
名稱欄目：vb.net視頻控件的簡單介紹
本文地址：http://weahome.cn/article/hcoehg.html