vb制作简单的音乐播放器

❶ 用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的，只能给你个大致思路。