VB.NET 怎樣實現不中斷地播放資源文件里的音頻？ 用戶點一次鼠標就播放資源文件里時長為三秒的

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

創(chuàng)新互聯公司專注于企業(yè)全網營銷推廣、網站重做改版、漢陽網站定制設計、自適應品牌網站建設、H5建站、購物商城網站建設、集團公司官網建設、成都外貿網站建設、高端網站制作、響應式網頁設計等建站業(yè)務，價格優(yōu)惠性價比高，為漢陽等各大城市提供網站開發(fā)制作服務。

Dim th As New Threading.Thread( _

Sub()

My.Computer.Audio.Play(New Byte() {}, AudioPlayMode.WaitToComplete)

End Sub)

th.Start()

End Sub

如果是WAV文件，這樣就行了，不會同時播放

vb.net怎么編程實現從音頻輸出口輸出指定頻率指定時長和占空比的單音信號。

1.用Win32 API PlaySound

PlaySound位于"winmm.dll"中，可以根據輸入參數的不同，播放WAV類型的音樂。在VB.NET中調用跟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)

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

當然我們也可以調用系統的聲音：

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

' 以同步的方式調用系統啟動時候的聲音。

2． 調用媒體播放器控件

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

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

Private Sub playMediaFile(ByVal mediaFileName As String)

With MediaPlayer1

.Stop()

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

.Play()

End With

End Sub

vb.net 中 如何實現 播放mp3文件

在.NET里，沒有托管的音樂播放器，用API只能播放WAV格式，對于MP3等形式的音頻文件，就要依賴于其他控件了，常用的就是

MediaPlayer。使用方法：

在工具箱上點右鍵，選擇“選擇項目(Choose Items)”，切到COM選項卡，找到 Windows Media Player， 勾選，確定

在t工具箱上，把剛才加入的MediaPlayer控件，拖放到窗體上

代碼：

WindowsMediaPlayer1.URL = "mp3文件路徑，支持網絡路徑"

WindowsMediaPlayer1.Ctlcontrols.play

基本就OK了，至于其他的操作諸如下一曲上一曲暫停停止，直接看 WindowsMediaPlayer1.Ctlcontrols. 里面的方法吧。

VB 用API 函數如何獲取視頻音頻文件的播放時長

'獲取媒體的長度 00:00

Public Function GetMusicLengthString(FileName As String) As String

Dim RefStr As String * 80

mciSendString "status " FileName " length", RefStr, 80, 0

GetMusicLengthString = CStr(Format(Int(Val(RefStr) \ 1000 \ 60), "00") "：" Format(Val(RefStr) \ 1000 Mod 60, "00.") Val(RefStr) \ 100 Mod 10)

End Function

當前題目：關于vb.net音頻時長的信息
標題鏈接：http://chinadenli.net/article35/dseihpi.html

成都網站建設公司_創(chuàng)新互聯，為您提供企業(yè)建站、企業(yè)網站制作、網站設計、網站排名、網站收錄、網站維護

廣告

聲明：本網站發(fā)布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創(chuàng)新互聯