VB WindowsMediaPlayer 播放

‘添加windowsmediaplayer控件 一个timer控件即可使用 Option Explicit Dim list2() As String, B可播放文件数 As Integer '可以播放的文件 Dim list() As String '存放所有的文件名 Dim total As Long '文件总个数 Dim now As L