用VB.NET編多媒體播放器

我這里有一段前段時間寫的測試代碼，使用WMPLib類，中間有你需要的功能，你可以參考下:

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

使用wmp.currentMedia.duration和wmp.currentMedia.durationString分別以double和string獲得當前媒體的播放時間，使用wmp.settings.volume設置音量大小，使用wmp.controls.currentPosition設置當前播放時間點

Imports WMPLib

Public Class FrmMain

Dim WithEvents wmp As WMPLib.WindowsMediaPlayer

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

wmp = New WMPLib.WindowsMediaPlayer()

TextBox1.Text = TextBox1.Text vbCrLf "當前播放狀態:" wmp.status

wmp.uiMode = "Mini"

wmp.settings.balance = 1

wmp.enableContextMenu = True

wmp.fullScreen = False

wmp.windowlessVideo = True

wmp.enabled = True

Dim wmpMediaList As IWMPPlaylist = wmp.newPlaylist("默認播放列表", "")

Dim wmpMedia As IWMPMedia = wmp.newMedia(My.Computer.FileSystem.CurrentDirectory "\Human.mp3")

With wmpMediaList

.appendItem(wmpMedia)

End With

'wmp.URL = "\\192.168.1.247\sharoncn\music\Human.mp3"

wmp.currentMedia = wmpMedia

wmp.settings.autoStart = True

tBarPlay.Value = 0

ListBox1.Items.Add(wmpMediaList.name)

ListBox1.SelectedIndex = 0

ListBox2.Items.Add(wmpMediaList.Item(0).name)

ListBox2.SelectedIndex = 0

tbar.Maximum = 100

tbar.Value = 50

Timer1.Enabled = True

Timer1.Interval = 100

End Sub

Private Sub wmp_PlayStateChange(ByVal NewState As Integer) Handles wmp.PlayStateChange

tBarPlay.Maximum = wmp.currentMedia.duration * 10

Label1.Text = "總時間:" wmp.currentMedia.durationString

TextBox1.Text = TextBox1.Text vbCrLf "當前播放狀態：" NewState

If NewState = 1 Then

wmp.controls.play()

End If

End Sub

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

TextBox1.SelectionStart = Len(TextBox1.Text)

TextBox1.ScrollToCaret()

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Label2.Text = "當前播放進度:" wmp.controls.currentPositionString

tBarPlay.Value = CInt(wmp.controls.currentPosition * 10)

End Sub

Private Sub tbar_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbar.Scroll

wmp.settings.volume = tbar.Value

End Sub

Private Sub tBarPlay_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tBarPlay.Scroll

wmp.controls.currentPosition = tBarPlay.Value / 10

End Sub

End Class

VB中RM控件的應用問題:流媒體如何播放

控件使用是小問題，問題是你有沒有流媒體的通訊傳輸設備，有就可以了！設備傳文件過來的的時候就像使用一般多媒體文件一樣，找到它就可以了！關鍵是流媒體轉換設備啊！

關于多媒體播放器的播放菜單（vb.net 2005）

1.你使用的媒體控制是什么？

2.要加入ListBox的雙擊事件

3.?你這里只是用瀏覽對話框找到了mp3文件，并顯示在列表框里。沒有播放的代碼。

張志晨

add

...............................................

添加WMplayer控件

Public?Class?Form1

Private?Sub?打開目錄ToolStripMenuItem_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?打開目錄ToolStripMenuItem.Click

If?FolderBrowserDialog1.ShowDialog?=?Windows.Forms.DialogResult.OK?Then

Dim?f?As?IO.FileInfo

Dim?d?As?IO.DirectoryInfo?=?New?IO.DirectoryInfo(FolderBrowserDialog1.SelectedPath)

Dim?file?As?String

For?Each?f?In?d.GetFiles("*.mp3")

file?=?(f.FullName)

ListBox1.Items.Add(file)

Next

End?If

End?Sub

Private?Sub?ListBox1_SelectedIndexChanged(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?ListBox1.SelectedIndexChanged‘雙擊就播放

AxWindowsMediaPlayer1.URL?=?ListBox1.Items(ListBox1.SelectedIndex)

End?Sub

End?Class

用VB.NET 做個多媒體播放器?。能播放ATI格式的文件能看MTV就行了

方法只是添加一個播放器控件，再改它的屬性就可以了.

添加播放器控件的方法：在窗體設計模式中，右鍵單擊”工具箱”－＞”WINDOWS 窗體”，選擇”添加／移除項”，再選擇”COM組件”標簽找到”WINDOWS MEDIA PLAYER”項，選上.最后把添加了控件放到窗體中就行了.

我沒有ATI格式的文件也不知道MEDIA PLAYER能放不，不行的話用別的控件試試，比如REALPLAYER.

郵件我已經發過去了.