❶ 用VB做一個簡單的mp3播放器怎麼做
要求挺多呀,用WindowsMediaPlayer控制項,代碼也給你貼上吧
Dim songname$, appdisk$, aa$
Private Sub Command1_Click()
Dim time As Integer
If Command6.Caption = "暫停" Then
If WindowsMediaPlayer1.URL = "" Then
mciSendString("pause " & songname, vbNullString, 0, 0)
'暫停歌曲播放
Else
WindowsMediaPlayer1.Controls.pause()
End If
Command6.Caption = "繼續"
ElseIf Command6.Caption = "繼續" Then
If WindowsMediaPlayer1.URL = "" Then
mciSendString("play " & songname & " repeat", vbNullString, 0, 0)
'歌曲循環播放，去除 & " repeat" 則取消循環
Else
WindowsMediaPlayer1.Controls.play()
End If
Command6.Caption = "暫停"
End If
End Sub
'載入歌曲
Private Sub Form_Load()
On Error Resume Next
'忽略錯誤，有錯誤的時候不顯示
WindowsMediaPlayer1.Visible = False
Command4.Enabled = False
appdisk = Trim(App.Path)
If Right(appdisk, 1) <> "\\" Then appdisk = appdisk & "\\"
aa = "system.mp3"
If InStr(aa, " ") > 0 Then
'判斷歌曲名是否有空格,有的話就去掉,並拷備為沒空格的新歌曲名(在同一路徑下)
songname = Replace(aa, " ", "")
FileCopy(appdisk & aa, appdisk & songname)
Else
songname = aa
End If
If InStr(appdisk, " ") > 0 Then
'判斷路徑是否有空格
FileCopy(appdisk & songname, Left(appdisk, 3) & songname)
'將歌曲拷到windows系統盤符下.
songname = Left(appdisk, 3) & songname
Else
songname = appdisk & songname
End If
mciSendString("play " & songname & " repeat", vbNullString, 0, 0)
'歌曲循環播放，去除 & " repeat" 則取消循環
End Sub
'關閉程序時 卸載內存中的歌曲
Private Sub Form_Unload(ByVal Cancel As Integer)
mciSendString("stop " & songname, vbNullString, 0, 0)
End Sub
❷ 如何用VB製作簡單的播放器
本人曾做過這類東西，你可以使用VB自帶的media player，MCI控制項，也可以調用API函數。或內者在網站上搜索一下別容人編寫的現成的播放器。
在設計模式下選擇WindowsMediaPlayer的「自定義……」可以設置它的相關基本屬性，如裝載時是否啟動它，窗口模式--最大化還是最小化
WindowsMediaPlayer主要用到以下屬性：
WindowsMediaPlayer.playState=（1、2、3……）
WindowsMediaPlayer.URL=""(音樂文件路徑)
WindowsMediaPlayer.windowlessVideo = True/False
WindowsMediaPlayer1.Close 關閉播放器
❸ 如何用VB編寫一個音樂播放器
添加一個 WindowsMediaPlayer，一個CommonDialog，一個list ，一個command
Dim pa As String
Private Sub Command1_Click()
Dim song As String
With CommonDialog1
.FileName = ""
.Filter = "*.MP3|*.mp3;*.avi;*.mid"
.Flags = 512
.ShowOpen
song = .FileName
End With
If song = "" Then Exit Sub
a = ""
For i = Len(song) To 1 Step -1
k = Mid(song, i, 1)
If k = " " Then '多首歌的分隔符
List1.AddItem a
a = ""
ElseIf k = "\" Then '一首歌時歌名與路徑的分隔符
List1.AddItem a
pa = Left(song, i)
Exit Sub
Else
a = k & a
End If
Next i
End Sub
Private Sub List1_DblClick()
Me.Caption = "我的播放器 當前播放" & pa & List1.Text
WindowsMediaPlayer1.URL = pa & List1.Text
End Sub
❹ 請高手指教,在vb.net中，如何編寫一個最簡單的音樂播放器
值得參考（從功能和外觀上都不錯內）容：
http://hi..com/lml%C7%E5%B7%E7%C2%E4%D2%B6/blog/item/21b92402ef718ad77a89475a.html
http://hi..com/lml%C7%E5%B7%E7%C2%E4%D2%B6/blog/item/518360eaaddcb3f7ce1b3eaf.html
❺ vb製作音樂播放器
1.如何載入WindowsMediaPlayer，控制項：
在VB6.0D的菜單欄找到「工程」——「部件」，在彈出的菜單中，拉動滾動條找到WindowsMediaPlayer，將其前面的復選框選中，點擊「應用」「確定」即可，然後你就會在你的的控制項欄中看到WindowsMediaPlayer控制項了。
2.如何播放音樂文件
只需要將WindowsMediaPlayer1.URL賦相應的值即可。
例如要在窗體載入時播放music.mp3這個文件，只要這樣寫代碼。
Private
Sub
Form_Load()
WindowsMediaPlayer1.URL
=
VB.App.Path
&
"\music.mp3"
End
Sub
注意：其中的\music.mp3是一個相對路徑表示當前目錄下的文件，即你的工程所保存的位置。
3.如何暫停播放
在command按鈕中加入如下代碼，即可實現。
Private
Sub
Command4_Click()
WindowsMediaPlayer1.Controls.pause
End
Sub
4.如何在暫停播放之後繼續播放
在command按鈕中加入如下代碼，即可實現。
Private
Sub
Command3_Click()
WindowsMediaPlayer1.Controls.play
End
Sub
如果想實現音樂從頭播放，只需要將第二條中播放音樂中代碼再寫一遍即可。
Private
Sub
Command5_Click()
WindowsMediaPlayer1.URL
=
VB.App.Path
&
"\music.mp3"
End
Sub
5.停止播放的音樂（關閉播放器）
在command按鈕中加入如下代碼，即可實現。
Private
Sub
Command1_Click()
WindowsMediaPlayer1.Close
End
Sub
❻ 用VB做個音樂播放器
工程-->部件-->瀏覽-->選擇msdxm.ocx載入
然後在窗體設計器中創建一個MediaPlayer控制項，名字不用改，不過注意如果專名字不是屬MediaPlayer1就說明該控制項版本和我不一樣，代碼也就不能用了。
接著在Form_load事件中加入代碼：
MediaPlayer1.AutoStart = False '讓播放器不自動播放
MediaPlayer1.FileName = "C:\123.mp3" '載入C:\123.mp3
MediaPlayer1.Play '播放
當然事先要在C盤放一個123.mp3
暫停和停止功能，MediaPlayer控制項自帶。
雖然功能很少但是至少可以實現mp3播放，如果你有不懂的地方，我可以繼續為你解答。
❼ 怎樣在VB做一個簡單的音樂播放器啊
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub File1_DblClick()
Dim tmpF As String
tmpF = File1.Path
If Right(tmpF, 1) <> "\" Then tmpF = tmpF & "\"
tmpF = tmpF & File1.List(File1.ListIndex)
WMP1.URL = tmpF
WMP1.Controls.play
Label1 = tmpF
End Sub
Private Sub Form_Load()
File1.Pattern = "*.mp3;*.wav"
End Sub
❽ 用vb怎樣製作音樂播放器啊
好的，我們的教程現在開始——————
這個是我已經做好了的窗體，來看一下，這個應該熟悉吧？就是windows media player 它是怎麼添加的呢？呵呵，其實很簡單的哦，認真看我的操作，選中這個，因為我已經選擇好了，有這個是不行的，還要添加一個空間，那就是commondialog，它的添加給media player一樣的，Microsoft Common Dialog Control 6.0 選中這個就行了，它對應的圖標是這個————看我滑鼠。把這個兩個再添加到窗體上就可以了。
然後就是寫代碼，我想你是想做個播放器吧？呵呵，我就把代碼順便給你寫了出來....下面看代碼
'代碼開始————————————————————
Private Sub Command1_Click()
CommonDialog1.Action = 1
WindowsMediaPlayer1.URL = CommonDialog1.FileName
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
Form1.Caption = "影音播放器"
Command1.Caption = "打開"
Command2.Caption = "退出"
End Sub
_________________________________________________
這個就是代碼了，下面我們運行一下看能不能運行啊...期待中ing...o(∩_∩)o...貌似可以哦，^_^
:-)，看到沒，一個播放器做成了！！！怎麼樣？有點成就感吧？當然要做好一個播放器不只是這么簡單的哦，還需要繼續努力！好了，教程到此結束.我這個支持你選擇播放的！！！
以上程序在xp下測試通過！
❾ Vb語言如何編寫一個簡易音樂播放器
加一個media player 控制項就行了
❿ 我用vb製作了一個簡單的音樂播放器，可是不知道，怎麼製作播放列表，還請大神，指點！
播放列表用vb的列表框啊。搜索到的MP3歌曲循環添加到列表框裡面，然後寫出配置項，雙擊的時候讀入路徑，開始播放。思路就是這樣。我是用JAVA的，只能給你個大致思路。