用vb怎样播放mp3文件?

polly_110 2003-11-30 11:21:42
在VB下,打开一个MP3文件,单出播放按钮, 使之播放该文件,请问播放按钮的代码应该怎样写? 还有停止按钮.
...全文
468 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
rainstormmaster 2003-11-30
  • 打赏
  • 举报
回复
参考:
http://expert.csdn.net/Expert/topic/2355/2355334.xml?temp=.6090204
etou 2003-11-30
  • 打赏
  • 举报
回复
先添加Mediaplayer和commondialog 控件

Private Sub command1_Click()

CommonDialog1.Filter = "MP3 Files" & "(*.mp3)|*.mp3"
CommonDialog1.Flags = cd1ofnhidereadonly
CommonDialog1.ShowOpen
MediaPlayer1.FileName = CommonDialog1.FileName

end sub
87721054 2003-11-30
  • 打赏
  • 举报
回复
你也可以用API来实现,这样的话占用资源不大,促进学习,原代码到处都找得到的
hcj2002 2003-11-30
  • 打赏
  • 举报
回复
用MediaPlayer控件
Private Sub Command1_Click()
Dlg.CancelError = True
On Error GoTo handler
With Dlg
.InitDir = App.Path
.Filter = "Midi Files(*.mid)|*.mid|MP3 Files(*.mp3)|*.mp3|Wave Filse(*.wav)|*.wav|(*.m3u)|*.m3u"

.ShowOpen
End With

mp.URL = Dlg.FileName
mp.play



handler:
Exit Sub

End Sub

停止:
mp.stop
rainstormmaster 2003-11-30
  • 打赏
  • 举报
回复
对了,最好在每次生成m3u文件前,kill原来的m3u文件
rainstormmaster 2003-11-30
  • 打赏
  • 举报
回复
Private Sub Command1_Click()

CommonDialog1.FileName = ""
CommonDialog1.Flags = cdlOFNAllowMultiselect Or cdlOFNFileMustExist Or cdlOFNExplorer
CommonDialog1.MaxFileSize = 32000
Me.CommonDialog1.Filter = "mp3 files|*.mp3"
CommonDialog1.ShowOpen
If Me.CommonDialog1.FileName = "" Then
Exit Sub
End If
Dim filearr As Variant
filearr = Split(CommonDialog1.FileName, vbNullChar)
Dim s As String
If UBound(filearr) = 0 Then
s = filearr(0)
Else
Dim i As Long
i = UBound(filearr)
Dim file() As String
ReDim file(i - 1)
Dim j As Long
For j = 1 To i
file(j - 1) = filearr(0) + "\" + filearr(j)
Next
s = Join(file, vbCrLf)
End If
Dim mfile As String
mfile = "c:\mytest.m3u"
Open mfile For Binary As #1
Put #1, , s
Close #1
MediaPlayer1.FileName = mfile
MediaPlayer1.Play

End Sub
rainstormmaster 2003-11-30
  • 打赏
  • 举报
回复
想打开多首歌的话,首先要用打开文件对话框获得多个mp3文件的名字,生成m3u文件,然后用
MediaPlayer控件打开该m3u文件
polly_110 2003-11-30
  • 打赏
  • 举报
回复
to : etou(向大虾们靠拢)
为什么每次都只能打开一首歌?怎样才能打开N首歌?

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧