VB點(diǎn)虐 如何用WindowsMediaPlayer控件播放Resource目錄下的mp3文件

首先列出目錄下的所有MP3文件并賦給某個(gè)數(shù)組變量，然后再播放。沒(méi)時(shí)間幫你寫(xiě)，只能說(shuō)一下方法了 Private Sub Command1_Click() Dim file As String file = Dir("C:\windows\*.mp3") '改成絕對(duì)路徑，這個(gè)變量換成數(shù)組的，利用FOR來(lái)賦值，得到正確的文件路徑后就再播放就可以了，自己完善一下吧 Do While file "" Print file file = Dir Loop End Sub

我們提供的服務(wù)有：網(wǎng)站設(shè)計(jì)、成都網(wǎng)站制作、微信公眾號(hào)開(kāi)發(fā)、網(wǎng)站優(yōu)化、網(wǎng)站認(rèn)證、丹徒ssl等。為1000+企事業(yè)單位解決了網(wǎng)站和推廣的問(wèn)題。提供周到的售前咨詢和貼心的售后服務(wù)，是有科學(xué)管理、有技術(shù)的丹徒網(wǎng)站制作公司

vb點(diǎn)虐 中 如何實(shí)現(xiàn) 播放mp3文件

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

MediaPlayer。使用方法：

在工具箱上點(diǎn)右鍵，選擇“選擇項(xiàng)目(Choose

Items)”，切到COM選項(xiàng)卡，找到

Windows

Media

Player，

勾選，確定

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

代碼：

WindowsMediaPlayer1.URL

=

"mp3文件路徑，支持網(wǎng)絡(luò)路徑"

WindowsMediaPlayer1.Ctlcontrols.play

基本就OK了，至于其他的操作諸如下一曲上一曲暫停停止，直接看

WindowsMediaPlayer1.Ctlcontrols.

里面的方法吧。

vb點(diǎn)虐 中如何控制MP3播放

先定義api函數(shù)

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrRetumString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Private Sub mnu_Music_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnu_Music.Click

mciSendString("open c:\1.mp3 alias mp3", Nothing, 0, IntPtr.Zero)

mciSendString("Play mp3", Nothing, 0, IntPtr.Zero)

End Sub

上面2行代碼就可以播放了，測(cè)試通過(guò)。

就是沒(méi)有其它功能，自己加上吧，

如：關(guān)閉 mciSendString("close mp3",Nothing,0,intPtr.Zero)

等等

vb點(diǎn)虐 中如何播放聲音，是要什么控件嘛？

My.Computer.Audio.Play("SoundFile.wav")

SoundFile.wav是你要播放的聲音文件的路徑