mediaplayer问题，如何使其连续自动播放音乐？

Question

设置它的 Autostart =true

Answer 1

你自己看看吧<object id=MediaPlayer1 style="LEFT: 0px; TOP: 0px" 
                        classid=clsid:22D6F312-B0F6-11D0-94AB-0080C74C7E95 
                        width="100%" height=154>
                              <param name="AudioStream" value="0">
                              <param name="AutoSize" value="0">
                              <param name="AutoStart" value="1">
                              <param name="AnimationAtStart" value="-1">
                              <param name="AllowScan" value="-1">
                              <param name="AllowChangeDisplaySize" value="-1">
                              <param name="AutoRewind" value="-1">
                              <param name="Balance" value="0">
                              <param name="BaseURL" value="">
                              <param name="BufferingTime" value="5">
                              <param name="CaptioningID" value="">
                              <param name="ClickToPlay" value="-1">
                              <param name="CursorType" value="0">
                              <param name="CurrentPosition" value="-1">
                              <param name="CurrentMarker" value="0">
                              <param name="DefaultFrame" value="">
                              <param name="DisplayBackColor" value="0">
                              <param name="DisplayForeColor" value="16777215">
                              <param name="DisplayMode" value="0">
                              <param name="DisplaySize" value="0">
                              <param name="Enabled" value="-1">
                              <param name="EnableContextMenu" value="-1">
                              <param name="EnablePositionControls" value="-1">
                              <param name="EnableFullScreenControls" value="0">
                              <param name="EnableTracker" value="-1">
                              <param name="Filename" value="mtvlist.asp">
                              <param name="InvokeURLs" value="-1">
                              <param name="Language" value="-1">
                              <param name="Mute" value="0">
                              <param name="PlayCount" value="0">
                              <param name="PreviewMode" value="0">
                              <param name="Rate" value="1">
                              <param name="SAMILang" value="">
                              <param name="SAMIStyle" value="">
                              <param name="SAMIFileName" value="">
                              <param name="SelectionStart" value="-1">
                              <param name="SelectionEnd" value="-1">
                              <param name="SendOpenStateChangeEvents" value="-1">
                              <param name="SendWarningEvents" value="-1">
                              <param name="SendErrorEvents" value="-1">
                              <param name="SendKeyboardEvents" value="0">
                              <param name="SendMouseClickEvents" value="0">
                              <param name="SendMouseMoveEvents" value="0">
                              <param name="SendPlayStateChangeEvents" value="-1">
                              <param name="ShowCaptioning" value="0">
                              <param name="ShowControls" value="0">
                              <param name="ShowAudioControls" value="-1">
                              <param name="ShowDisplay" value="0">
                              <param name="ShowGotoBar" value="0">
                              <param name="ShowPositionControls" value="-1">
                              <param name="ShowStatusBar" value="-1">
                              <param name="ShowTracker" value="-1">
                              <param name="TransparentAtStart" value="0">
                              <param name="VideoBorderWidth" value="0">
                              <param name="VideoBorderColor" value="0">
                              <param name="VideoBorder3D" value="0">
                              <param name="Volume" value="9640">
                              <param name="WindowlessVideo" value="0">
                            </object>

Answer 2

将要播放的影音文件文件名暂时存入一个String 数组或是用list 之类的暂存先
等一首完毕自动进行下一曲不就得这个问题应该不是技术问题吧

Answer 3

可以用TIMER控件可以参考下面的内容，不一定对你有帮助方法如下：　　新建标准EXE工程，窗体就用默认名称好了，Caption为“MMP3”或别的，将其BorderStyle属性设为1，MinButton设为True；添加一个MediaPlayer控件、一个公共对话框和一个Text控件；接下来在窗体上画五个按钮，分别命名为：cmdPlay，cmdPause,cmdContinue,cmdNext,cmdStop,Caption依次为播放、暂停、继续、下一曲、停止。好，下面就是编写代码了：'初始化程序
Private Sub Form_Load()
MediaPlayer1.Visible = False
cmdPlay.BackColor = vbRed
cmdPause.BackColor = vbRed
cmdContinue.BackColor = vbRed
cmdStop.BackColor = vbRed
cmdNext.BackColor = vbRed
cmdContinue.Enabled = False
cmdPause.Enabled = False
cmdStop.Enabled = False
Text1.Text = "谢谢使用。"
Text1.BackColor = vbBlack
Text1.ForeColor = vbYellow
End Sub'播放
Private Sub cmdPlay_Click()
Text1.SetFocus
On Error GoTo handler
With CommonDialog1
'.Flags = cdlOFNAllowMultiselect
.InitDir = App.Path
.Filter = "Midi Files(*.mid)|*.mid|MP3 Files(*.mp3)|*.mp3|Wave Filse(*.wav)|*.wav|(*.m3u)|*.m3u"
.FileName = ""
.ShowOpen
End With
MediaPlayer1.FileName = CommonDialog1.FileName
MediaPlayer1.Play
Text1.Text = " 现在正在播放：" & CommonDialog1.FileName
cmdPlay.Enabled = False
cmdPause.Enabled = True
cmdContinue.Enabled = False
cmdStop.Enabled = True
Exit Sub
handler:
MsgBox "未选择媒体文件。", vbOKOnly, "错误信息"
End Sub'暂停播放
Private Sub cmdPause_Click()
Text1.SetFocus
MediaPlayer1.Pause
cmdPause.Enabled = False
cmdContinue.Enabled = True
End Sub'继续播放
Private Sub cmdContinue_Click()
Text1.SetFocus
MediaPlayer1.Play
cmdPlay.Enabled = False
cmdPause.Enabled = True
cmdContinue.Enabled = False
End Sub'播放下一曲
Private Sub cmdNext_Click()
On Error GoTo NextErr '播放非m3u文件时只能播放单噬柚贸龃泶?br> MediaPlayer1.Next
Exit Sub
NextErr:
MsgBox "现在正在播放单曲，没有一下曲。", vbOKOnly, "出错信息"
End Sub'停止播放
Private Sub cmdStop_Click()
MediaPlayer1.Stop
cmdPlay.Enabled = True
cmdPause.Enabled = False
cmdContinue.Enabled = False
cmdStop.Enabled = False
End Sub　　说明：　　1.*.m3u文件应该是大家所认识的，就是Winamp之类的播放器的播放文件列表，我们完全可以用记事本编辑它（打开一个此类的文件看看，没什么神秘的）。　　2.以上程序在VB6.0，Win98第二版下调试通过。

Answer 4

Private Sub MediaPlayer1_EndOfStream(ByVal Result As Long)
MediaPlayer1.Play
End Sub
呵呵就这样就行了都有分。