vb音乐播放器论文

『壹』 用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