vb.net制作 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制作一个简单的MP3播放器 利用API函数[mciSendString]可以轻松实现MP3音乐文件的播放。下面这段程序实现了MP3播放的大部分常规操作，对其稍加修改，做一个100KB大小的MP3播放器轻而易举
启动VB程序，在窗体上放置6个命令按钮，三个标签，一个公用对话框、一个进度条、一个状态栏和一个计时器，窗本的布置请参考附图按钮"Open MP3 File"是用来打开对话框选择MP3文件，其他5个按钮分别为Play(播放)、Pause(暂停)、Stopplay(停止播放)、Back(向后跳跃)、Prew(向前跳跃)。Label1用来表示歌曲当前时间；label2放在时度条的最左边，Caption属性为"00：00"；lable3放在时度条的右边，用来表示歌曲总长。下面就可以编写代码了。首先在窗体的"通用声明"部分声明函数
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA"(Byval lpstrCommand As String,ByVal lpstrRetumString As String,ByVal uReturnLength As long,ByVal hwndCallback as long) As longDim mfn As String
下面就是各个对象的代码了：
Private Sub Form_load()
mfn=""
play.Enabled=False
pause.Enabled=False
Stopplay.Enabled=False
back.Enabled=False
prew.Enabled=False
Timer1.Enabled=False
Timer1.Interval=500
End SubPrivate Sub open_Click()
On Error Goto err
With CommonDialog1
.CancelError=True
.Filter="音乐文件|*.mp3;*.wav;*.mid"
.Flags=cdlOFNNoChangeDir And cdlOFNPathMustExist
.Action=1
stopplay_Click '停止按钮同时可以设备初始化
mfn=.FileName '这个程序中文件名一定不能带空格
Form1.Caption=.FileName
play.Enabled=True
End With
play_Click
Exit Sub
err:
End SubPrivate Sub play_Click()
On Error Resume Next
Dim t As Long
t=mciSendString("open " + mfn,0&,0,0) 'Open后边的空格一定不能丢
Dim ret As String * 128
t=mciSendString("status " + mfn + " length",ret,128,0)
'显示歌曲总长
ret=Left(ret,8)
If ret<>"" Then
ProgressBar1.Min=0
ProgressBar1.Max=Val(ret)
Label3.Caption=gettime(Val(ret))
End If
play.Enabled=False
pause.Enabled=True
stopplay.Enabled=True
back.Enabled=True
prew.Enabled=True
t=mciSendString("status " + mfn +" mode",ret,128,0)
'得到设备的当前状态，是播放还是暂停等等
ret=Left(ret,8)
StatusBar1.Panels(1).text=ret
'在状态栏显示播放状态
t=mciSendString("play " + mfn + " form " + Str(ProgressBar1.Value),0&,0,0)
'开始播放
Timer1.Enabled=True
End Sub
Private Sub pause_Click()
t%=mciSendString("pause " + mfn,0&,0,0)
'发出暂停的命令
play.Enable=True
pause.Enabled=False
stopplay.Enabled=True
back.Enabled=False
prew.Enabled=False
End Sub
Private Sub stopplay_Click()
t%=mciSendString("stop " + mfn,0&,0,0)
t%=mciSendString("close " + mfn,0&,0,0)
'停止播放
play.Enabled=True
pause.Enabled=False
stopplay.Enabled=False
back.Enabled=False
prew.Enabled=False
End Sub
Private Sub back_Click()
t%=mciSendString("play " + mfn + " from " + Str(ProgressBar1.Value-(ProgressBar1.Max\10)),0&,0,0) '向后跳一小段再播放
End Sub
Private Sub prew_Click()
t%=mciSendString("play " + mfn + " from " + Stri(ProgressBar1.Value+(ProgressBar1.Max\10)),0&,0,0) '向前跳一小段再播放
End Sub
Private Sub Timer1_Timer()
Dim t As Long
Dim ret As String * 128
t=mciSendString("status " + mfn + " position",ret,0,0)
'得到当前播放位置
ret=left(ret,8)
ProgressBar1.Value=Val(ret)
Label1.Caption=gettime(Val(ret))
'显示歌曲当前时间
If ProgressBar1.Value=ProgressBar1.Max Then
stopplay_Click
End If
t=mciSendString("status " + mfn + " mode",ret,128,0)
ret=Left(ret,8)
StatusBar1.Panels(1).Text=ret
End SubPrivate Sub Form_Unload(Cacel As Integer)
t%=mciSendString("stop " + mfn,0&,0,0)
t%=mciSendString("close " + mfn,0&,0,0)
End SubPrivate Function Gettime(position As Long) As String
'这个函数的功能是把以长整型表示的时间转换为电子钟式的"**:**"
Dim min,sec
min=position/1000
min=min/60
sec=min-Int(min)
min=Int(min)
sec=60 * sec / 100
sec=Int(sec * 100)
gettime=Str(min) + ":" + Str(sec)
End Function
穰英捷洛： 在.NET里,没有托管的音乐播放器,用API只能播放WAV格式,对于MP3等形式的音频文件,就要依赖于其他控件了,常用的就是 MediaPlayer.使用方法:在工具箱上点右键,选择“选择项目(Choose Items)”,切到COM选项卡,找到 ...
多伦县13470863130： 使用vb.netnbsp;制作简易的mp3播放器,只需要添加文件,播放,停止,暂停,快近,上一首,下一首! - ？
穰英捷洛： Publicnbsp;Classnbsp;Form1nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Privatenbsp;Subnbsp;Button1_Click(ByValnbsp;sendernbsp;Asnbsp;System.Object,nbsp;ByValnbsp;enbsp;Asnbsp;System.EventArgs)nbsp;Handlesnbsp;Button1.Clicknbsp;...
多伦县13470863130： 用vb.net编写一个音乐播放器 功能不需要太强大 二三百行代码就行 - ？
穰英捷洛： 拖放一个Windows media 就可以解决
多伦县13470863130： vb制作音乐播放器 - ？
穰英捷洛： 1.如何加载WindowsMediaPlayer,控件:在VB6.0D的菜单栏找到“工程”——“部件”,在弹出的菜单中,拉动滚动条找到WindowsMediaPlayer,将其前面的复选框选中,点击“应用”“确定”即可,然后你就会在你的的控件栏中看到...
多伦县13470863130： vb.net中如何控制MP3播放 - ？
穰英捷洛： 先定义api函数Private Declare Function mciSendString Lib ＂winmm.dll＂ Alias ＂mciSendStringA＂ (ByVal lpstrCommand As String, ByVal lpstrRetumString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long ...
多伦县13470863130： 各位编程爱好者,利用VB6.0能否做一个能播放MP3文件的播放器,如果能请写出所需的控件,及语句？
穰英捷洛： 可以,引入mci函数,mciSendCommand即可
多伦县13470863130： vb.net中编辑音乐播放器用什么控件添加音乐 - ？
穰英捷洛： 需要用到COM控件,例如media player、Real player等,或者用 .NET 自带的类库 System.Media下面的 SoundPlayer来播放音乐
多伦县13470863130： 请教VB高手》vb 编写mp3播放器 - ？
穰英捷洛： 注意:必须添加msdxm.ocx部件,即MediaPlayer控件 Private Sub Combo1_Click() File1.Pattern = Combo1.Text File1.Path = App.Path & ＂\mp3＂ End Sub Private Sub Form_Load() File1.Pattern = ＂＂ End Sub Private Sub File1_Click() ...
多伦县13470863130： 如何用VB制作播放器 - ？
穰英捷洛： 在VB中选“工程”=>“部件”=>在“控件”选项卡中勾选“Windows Media Player”=>确定 你就会看见控件栏中多了个控件,既是Windows Media Player控件了,再在窗口中添加该控件就行了.解释一下三楼的代码: Private Sub Form_Load()WMP1.settings.autoStart=True'打开窗口自动播放WMP1.URL=＂d:\movie.mpg＂'播放“D:\”目录下的“movie.mpg”文件 End Sub看完有帮助的话别忘了采纳哦~~~~~呵呵呵~~~~
多伦县13470863130： 用vb制作一个MP3播放器 - ？
穰英捷洛： 窗体添加控件WindowsMediaPlayer1 一个按钮用于打开文件 足够了:Private Sub Command1_Click()openFile'调用下面的的函数 End Sub Sub openFile() CommonDialog1.ShowOpen WindowsMediaPlayer1.URL = CommonDialog1.FileName End Sub
