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

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

創(chuàng)新互聯(lián)建站堅持“要么做到，要么別承諾”的工作理念，服務領域包括：做網(wǎng)站、成都網(wǎng)站制作、企業(yè)官網(wǎng)、英文網(wǎng)站、手機端網(wǎng)站、網(wǎng)站推廣等服務，滿足客戶于互聯(lián)網(wǎng)時代的南靖網(wǎng)站設計、移動媒體設計的需求，幫助企業(yè)找到有效的互聯(lián)網(wǎng)解決方案。努力成為您成熟可靠的網(wǎng)絡建設合作伙伴！

MediaPlayer。使用方法：

在工具箱上點右鍵，選擇“選擇項目(Choose

Items)”，切到COM選項卡，找到

Windows

Media

Player，

勾選，確定

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

代碼：

WindowsMediaPlayer1.URL

=

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

WindowsMediaPlayer1.Ctlcontrols.play

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

WindowsMediaPlayer1.Ctlcontrols.

里面的方法吧。

VB點虐 如何加載音效？

方法一：調(diào)用系統(tǒng)DLL（這個有點不完善，也就是播放聲音時窗體無法控制，效果相當于Enabled=true，但音頻播放完畢后就沒事了）

Private?Declare?Function?sndPlaySound?Lib?"Winmm.dll"?Alias?"sndPlaySoundA"?渣瞎(ByVal?lpszSoundName?As?String,?ByVal?uFlags?As?Long)?As?Long

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

Dim?SoundFile?As?String,?Result?As?Long

SoundFile?=?"D:\KuGou\Pianoboy?-?如握空第105天.wav"?'此處為路徑

Result?=?sndPlaySound(SoundFile,?0)

End?Sub

方法二：使用WindowsMediaPlayer（WindowsMediaPlayer1的可見為False）

先添加一個windowsmediaplayer控件（工具箱里沒有，需要手動添加）

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

WindowsMediaPlayer1.visible=False

Me.WindowsMediaPlayer1.URL?=?"D:\KuGou\Pianoboy?-?第105天.mp3"

End?Sub

上面的都是點擊button1（按鈕1）后播放聲音，若是鼠標移動到某控件上發(fā)出聲皮漏音的話改一下觸發(fā)事件就OK了。

VB點虐 里面怎么添加音樂

給你個 很簡單的

Public Class Form1

Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long

‘ 聲明笑伍函數(shù) mciexcute 加入庫 winmm.all

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Call mciExecute("play E:\music\music\族升爛單身情歌.wma ")

'在 formload過程中 調(diào)用函數(shù)兆漏 mciexcute 里面 是 文件 路徑

End Sub

End Class