(VB6)获取和修改视频的语言音轨

很多MV要使用语言音轨才能实现伴音功能，如下图。很多时候，我们要切换到“英语”才能实现伴音。那么在VB6中，我们该怎么实现该功能的？本次我们就来实现该功能。

 

Dim SC As IWMPControls3
'WindowsMediaPlayer1是Windows Media Player控件的名称，请根据具体情况修改
Set SC = WindowsMediaPlayer1.Controls
'获取所有语言音轨
For i = 1 To SC.audioLanguageCount
'获取语言音轨名称
msgbox SC.getLanguageName(SC.getAudioLanguageID(i))
Next

修改语言音轨

Dim SC As IWMPControls3
Set SC = WindowsMediaPlayer1.Controls
'修改当前语言音轨为第一个语言，注意不要超过总语言数。
SC.currentAudioLanguageIndex = 1

 注意：以上代码要在WindowsMediaPlayer1控件播放视频时才能调用，否则可能会出错。