用MMControl控件播放M3U文件的实现(2)

Private Sub Form_Load() '程序加载
Timer1.Enabled = False
Timer1.Interval = 1000
List1.BackColor = vbBlack
List1.ForeColor = vbYellow
MMControl1.Visible = False
MyInd = 0
cmdOpen.Value = True '“打开”按钮被按下
'OpenM3u '打开M3U文件
'PlayMe '播放
End Sub

Private Sub cmdOpen_Click() '“打开”按钮代码
On Error GoTo openerr:
List1.Clear
CommonDialog1.Filter = "(*.m3u)|*.m3u" '这个不用说了吧
CommonDialog1.ShowOpen
sF = CommonDialog1.FileName
OpenM3u '打开M3U文件
Exit Sub
openerr:
Timer1.Enabled = False '出错则不能让计时器工作
'出错信息自己写吧
End Sub

'当点击右上角的“×”按钮时
Private Sub Form_Unload(Cancel As Integer)
MMControl1.Command = "Close" '关闭设备以释放资源
End Sub

Private Sub List1_dblClick() '双击列表框事件
MyInd = List1.ListIndex
cmdPlay.Value = True
End Sub

'判断是否要播放下一首
Private Sub MMControl1_StatusUpdate()
If MMControl1.Position = MMControl1.Length Then
PlayNext
End If
End Sub

Private Sub PlayMe() '播放媒体文件
With MMControl1 '以下语句是不是有点罗嗦？
.FileName = List1.List(MyInd)
.Command = "stop"
.Command = "close"
.Command = "Open"
.Command = "play"
End With
MaxVal = MMControl1.Length
Timer1.Enabled = True
Me.Caption = List1.List(MyInd) '显示正在播放的文件名称
ProgressBar1.ToolTipText = "播放总数：" & List1.ListCount & "首"
''显示播放文件总数
End Sub