A. 用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下測試通過！
B. 幫著用vb6做一個音樂播放器可以么大神們幫幫忙
VERSION 5.00 Begin VB.Form Form12 Caption = "播放音頻文件" ClientHeight = 7650 ClientLeft = 60 ClientTop = 450 ClientWidth = 10875 LinkTopic = "Form12" ScaleHeight = 7650 ScaleWidth = 10875 StartUpPosition = 3 '窗口預設 End Attribute VB_Name = "Form12" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long Private Sub Form_Click() Dim x x = mciExecute("play F:\OneMoreTime-Jewelry-Kenh14.vn.mp3") End Sub
C. 用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
D. 用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
E. 用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播放，如果你有不懂的地方，我可以繼續為你解答。
F. vb6.0做在線音樂播放器
菜鳥學做這個抄沒什麼意思啊
根本學不到什麼的
最好自己想想做個小游戲之類考驗演算法的東西來
比較有意義
寫那個非過程化的東西一點學習價值也沒有
如果你真想做點話可以自己去查查WMP控制項的屬性
以及怎麼讀寫文件 這就足夠了
真的說實話 你說的那個東西真的什麼也學不到 培養編程能力
不必知道了解很多的東西的用法 只要拿過來會用能用就行
重要的在於一個能力 你說的那個東西就是用代碼設置屬性玩了
只要對WMP控制項了解了 知道他怎麼用了 你就可以做出來了
而且在線的音樂列表 這個需要一個龐大的資料庫來支持 這點你是無法實現
除非你的音樂表裡只有幾首歌
G. 如何用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
H. 用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
I. 怎樣用VB製作一個音樂播放器
申明:(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 貌似書上都有這個的做法啊？
J. 怎樣在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