(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控件播放视频时才能调用，否则可能会出错。

 

转载于:https://www.cnblogs.com/zilin/articles/1713312.html