VB WindowsMediaPlayer 播放

VB 如何用WindowsMediaPlayer 播放音乐文件，

1：播放指定文件夹内的所有歌曲

2：顺序播放，就是自动下一首。

‘添加windowsmediaplayer控件 一个timer控件即可使用

Option Explicit

Dim list2() As String, B可播放文件数As Integer '可以播放的文件

Dim list() As String '存放所有的文件名

Dim total As Long '文件总个数

Dim now As Long '用来记录当前读取的文件的排序

Private Sub Form_Load()

    Timer1.Interval = 200

    now = 1

    total = 0

    getAll "C:\WINDOWS\Media" '指定音乐文件夹

    '输出文件的个数

    Call F存入可播放文件名

    If B可播放文件数 > 0 Then

        Me.WindowsMediaPlayer1.URL = list2(now)

    Else

        MsgBox "没有音乐文件"

    End If

End Sub

'遍历指定目录下的文件 并将所有的文件名放入数组list

Function getAll(rootF)

    Dim fso As Object, folder As Object, subfolder As Object, file As Object

    Set fso = CreateObject("scripting.filesystemobject") '创建FSO对象

    Set folder = fso.getfolder(rootF) '得到文件夹对象

    For Each subfolder In folder.subfolders '遍历子文件夹

        Call getAll(subfolder) '递归,查找该文件夹的子文件夹

    Next

    For Each file In folder.Files '遍历根文件夹下的文件

        Debug.Print folder

        Debug.Print file '输出文件名

        total = total + 1

        ReDim Preserve list(total) As String

        list(total) = file

    Next

    Set fso = Nothing

    Set folder = Nothing

    Set fso = Nothing

End Function

Function F存入可播放文件名()

    Dim i As Integer

    B可播放文件数 = 0

    For i = 1 To total

        If Right$(list(i), 3) = "mp3" Or Right$(list(i), 3) = "wav" Then

            B可播放文件数 = B可播放文件数 + 1

            ReDim Preserve list2(B可播放文件数)

            list2(B可播放文件数) = list(i)

        End If

    Next

End Function

Private Sub Timer1_Timer()

    If Me.WindowsMediaPlayer1.playState = wmppsStopped Then

        now = now + 1

        If now > B可播放文件数 Then now = 1

        Me.WindowsMediaPlayer1.URL = list2(now)

        Me.WindowsMediaPlayer1.Controls.play

    End If

End Sub
☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆

关于控件WindowsMediaPlayer的几个问题

[基本属性]
URL:string 可以指定媒体位置
enableContextMenu:Boolean 显示/不显示播放位置的右键菜单
fullScreen:boolean 全屏显示
stretchToFit:boolean 非全屏状态时是否伸展到最佳大小
uMode:string 播放器的模式，full：有下面的控制条; none：只有播放部份没有控制条
playState:integer 当前控件状态，下面是三种基本状态：
3：正在播放
2：暂停
1：已停止
状态变化时会触发OnStatusChange事件

[controls]
可通过WindowsMediaPlayer.controls对播放器进行控制并取得相关的一些信息：
controls.play; 播放
controls.stop; 停止
controls.pause; 暂停
controls.currentPosition：Double 当前播放进度
controls.currentPositionString：string 时间格式的字符串 "0:32"

[currentMedia]
可以通过WindowsMediaPlayer.currentMedia取得当前媒体的信息
currentMedia.duration Double 总长度
currentMedia.durationString 时间格式的字符串 "4:34"

[settings]
可以通过WindowsMediaPlayer.settings对播放器进行设置，包括音量和声道等。
settings.volume:integer 音量 （0-100）
settings.balance:integer 声道，通过它应该可以进行立体声、左声道、右声道的控制。但对应的取值尚不清楚

摘自：网络

---

★VB部分相关文章推荐：★

---

※VB 释放资源文件到指定目录函数

※VB 读取资源文件里面的字符串

※VB中资源文件.res的使用方法详解

※VB6.0中创建和使用文本资源文件

※VB WindowsMediaPlayer 播放