『壹』 用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 ----------------------------------------------簡單的話 一句話Private Sub File1_DblClick()
WindowsMediaPlayer1.URL = File1.Path & "\" & File1.List(File1.ListIndex)
End Sub
『貳』 畢業設計.VB 製作的MP3播放器.救急,好心人幫幫忙.
Mail to [email protected]
Let me check check.
『叄』 用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編寫一個音樂播放器
添加一個 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作業，課程設計，MP3播放器！
Option Explicit
Dim playfilename As String
Dim playposition As Double
Dim MediaPlayer1 As Boolean
Private Sub Command1_Click()
Command1.Enabled = False
MediaPlayer1.pause
playposition = MediaPlayer1.currentPosition
End Sub
Private Sub Command2_Click()
Command1.Enabled = True
Command3.Enabled = True
MediaPlayer1.FileName = playfilename
MediaPlayer1.SelectionStart = playposition
MediaPlayer1.play
End Sub
Private Sub Command3_Click()
playposition = 0
Command3.Enabled = False
Command1.Enabled = False
Command2.Enabled = True
MediaPlayer1.Stop
End Sub
Private Sub Command4_Click()
CommonDialog1.ShowOpen
playfilename = CommonDialog1.FileName
playposition = 0
End Sub
Private Sub Command5_Click()
Unload Me
End
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下測試通過！
『柒』 vb6.0做在線音樂播放器
菜鳥學做這個抄沒什麼意思啊
根本學不到什麼的
最好自己想想做個小游戲之類考驗演算法的東西來
比較有意義
寫那個非過程化的東西一點學習價值也沒有
如果你真想做點話可以自己去查查WMP控制項的屬性
以及怎麼讀寫文件 這就足夠了
真的說實話 你說的那個東西真的什麼也學不到 培養編程能力
不必知道了解很多的東西的用法 只要拿過來會用能用就行
重要的在於一個能力 你說的那個東西就是用代碼設置屬性玩了
只要對WMP控制項了解了 知道他怎麼用了 你就可以做出來了
而且在線的音樂列表 這個需要一個龐大的資料庫來支持 這點你是無法實現
除非你的音樂表裡只有幾首歌
『捌』 用VB做音樂播放器的問題
【簡易型音樂播放器】2007年07月10日 星期二 10:56'添加 MediaPlayer1 CommonDialog1 Timer1 Command1(0) Command1(1) Command1(2)
'Mediaplayer1 請使用 MSDXM.OCX 那個控制項
Dim songname$
Private Sub Form_Load()
Command1(0).Caption = "選歌播放"
Command1(1).Caption = "暫 停"
Command1(2).Caption = "停 止"
Command1(1).Enabled = False
Command1(2).Enabled = False
Timer1.Interval = 100
Timer1.Enabled = False
End Sub
Private Sub Form_Unload(Cancel As Integer)
Call stopmusic
End
End Sub
Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 0
On Error GoTo errchoice
With CommonDialog1
.CancelError = True
.InitDir = App.Path
.Filter = "音樂文件|*.mp3;*.mid;*.wav;*.wma;*.rid"
.Action = 1
End With
If CommonDialog1.FileName <> "" Then
songname = CommonDialog1.FileName
Call playmusic(songname)
End If
Case 1
If Command1(1).Caption = "暫 停" Then
MediaPlayer1.Pause
Command1(1).Caption = "繼 續"
Else
MediaPlayer1.Play
Command1(1).Caption = "暫 停"
End If
Case 2
Call stopmusic
End Select
errchoice:
If Err > 0 Then Exit Sub '選擇了取消
End Sub
Sub playmusic(sname As String)
On Error GoTo errhandler
'playState:integer;播放狀態0=關閉停止，1=暫停, 2=播放，6=正在緩沖
'0=mpClosed 1=mpPaused 2=mpPlying 6=mpWaiting
MediaPlayer1.FileName = sname
If MediaPlayer1.PlayState = 1 Or MediaPlayer1.PlayState = 2 Then Call stopmusic
MediaPlayer1.Play
Command1(1).Caption = "暫 停"
Command1(1).Enabled = True
Command1(2).Enabled = True
Timer1.Enabled = True
errhandler:
If Err > 0 Then MsgBox "歌曲格式不支援或文件受損"
End Sub
Sub stopmusic()
MediaPlayer1.SelectionEnd = -1
MediaPlayer1.CurrentPosition = 0
MediaPlayer1.Stop
Command1(1).Caption = "暫 停"
Command1(1).Enabled = False
Command1(2).Enabled = False
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
If MediaPlayer1.PlayState = mpStopped Then Call stopmusic
End Sub
轉自CBM666的博客
『玖』 怎樣在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
『拾』 用VB6.0製作音樂播放器
申明:(CommonDialog控制項的來name改為cmd
把WindowsMediaPlayer的源name改成WMP)你也可以不修改...
Private Sub Command1_Click()
End
End Sub
Private Sub Command2_Click(Index As Integer)
cmd.FileName = ""
cmd.DialogTitle = "請選擇您要播放的MP3格式的文件 "
cmd.Filter = "MP3|*.mp3|" Rem隨便什麼格式自己去添加就ok了
cmd.ShowOpen
If Trim(cmd.FileName) = "" Then
Exit Sub
Else
WMP.URL = Trim(cmd.FileName)
End If
End Sub
Private Sub Form_Load()
If App.PrevInstance Then
End
End If
End Sub