播放器 程序

播放器 程序 添加：Private Sub Command1_Click() On Error GoTo Err cd1.Filter = "ÊÓƵÎļþ|*.avi;*.dat;*.wmv;*.mpg;*.mpeg|ÒôƵÎļþ|*.wmv;*.wma;*.mp3" cd1.Flags = cdlOFNAllowMultiselect Or cdlOFNExplorer Or cdlOFNLongNames cd1.ShowOpen s = cd1.FileName a = Split(s, vbNullChar) For i = 1 To UBound(a) List1.AddItem a(0) & "\" & a(i) Next List1.ListIndex = 0 Err: End Sub Private Sub Command2_Click() List1.RemoveItem List1.ListIndex End Sub Private Sub List1_Click() wmp1.URL = List1.Text End Sub Private Sub Timer1_Timer() If wmp1.playState = wmppsStopped Then List1.ListIndex = List1.ListIndex + 1 End If End Sub