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