VB6.0 Media Player 代码
'初始化程序
Private Sub Form_Load()
WindowsMediaPlayer1.Visible = true
Text1.Text = "本播放器支持各种音乐格式"
Text1.BackColor = VBBlack
Text1.ForeColor = VBYellow
End Sub

'播放
Private Sub cmdPlay_Click()
Text1.SetFocus
On Error GoTo handler
With CommonDialog1
.InitDir = App.Path
.Filter = "Midi Files(*.mid)|*.mid|MP3 Files(*.mp3)|*.mp3|Wave Filse(*.wav)|*.wav|(*.m3u)|*.m3u"
.FileName = ""
.ShowOpen
End With
WindowsMediaPlayer1.FileName = CommonDialog1.FileName
WindowsMediaPlayer1.Play
Text1.Text = " 现在正在播放：" & CommonDialog1.FileName
cmdPlay.Enabled = False
cmdPause.Enabled = True
cmdContinue.Enabled = False
cmdStop.Enabled = True
Exit Sub
handler:
MsgBox "未选择媒体文件。", VBOKOnly, "错误信息"
End Sub
备注：还有停止等按钮程序在此略

运行以上程序后界面良好，点cmdPlay（播放）按钮会出现选择媒体文件，可是选择文件后不会播放，程序跳过播放执行“MsgBox "未选择媒体文件。", VBOKOnly, "错误信息"”。出现的是系统错误信息提示框“未选择媒体文件”，敬请高手指点！
以上程序有两个控件：1.CommonDialog 2.Mediaplayer 一个Text 一个Cmdplay按钮
又如何实现单曲重复播放？请求代码！

[此贴子已经被作者于2007-9-2 21:42:14编辑过]

'初始化程序
Private Sub Form_Load()
cmdPlay.Caption = "play"
cmdPause.Caption = "pause"
cmdStop.Caption = "stop"
WindowsMediaPlayer1.Visible = True
Text1.Text = "本播放器支持各种音乐格式"
Text1.BackColor = vbBlack
Text1.ForeColor = vbYellow
End Sub

'播放
Private Sub cmdPlay_Click()
On Error GoTo handler
CommonDialog1.ShowOpen
Form1.Caption = CommonDialog1.FileName
WindowsMediaPlayer1.URL = CommonDialog1.FileName

Text1.Text = " 现在正在播放：" & CommonDialog1.FileName
cmdPlay.Enabled = False
cmdPause.Enabled = True
cmdStop.Enabled = True
Exit Sub
handler:
MsgBox "未选择媒体文件。", vbOKOnly, "错误信息"
End Sub


研究了半天，终于搞定了
WindowsMediaPlayer1.URL = CommonDialog1.FileName

[此贴子已经被作者于2007-9-2 23:12:17编辑过]

谢谢!可以选择播放了
这些语句就不用了。（cmdPlay.Enabled = True
cmdPause.Enabled = False
cmdStop.Enabled = False ）

'初始化程序
Private Sub Form_Load()
WindowsMediaPlayer1.Visible = True
Text1.Text = "本播放器支持各种音乐格式。谢谢使用"
Text1.BackColor = vbBlack
Text1.ForeColor = vbYellow
End Sub

'播放
Private Sub cmdPlay_Click()
CommonDialog1.ShowOpen
Form1.Caption = CommonDialog1.FileName
WindowsMediaPlayer1.URL = CommonDialog1.FileName
WindowsMediaPlayer1.Controls.play
Text1.Text = " 播放：" & CommonDialog1.FileName
End Sub

'暂停播放
Private Sub cmdPause_Click()
WindowsMediaPlayer1.Controls.pause
End Sub

'继续播放
Private Sub cmdContinue_Click()
WindowsMediaPlayer1.Controls.play
End Sub

'播放下一曲
Private Sub cmdNext_Click()
WindowsMediaPlayer1.Controls.Next
End Sub

'停止播放
Private Sub cmdStop_Click()
WindowsMediaPlayer1.Controls.Stop
End Sub

请问如何实现单曲重复播放?

[此贴子已经被作者于2007-9-3 14:56:26编辑过]