很多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
' 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
Set SC = WindowsMediaPlayer1.Controls
' 修改当前语言音轨为第一个语言,注意不要超过总语言数。
SC.currentAudioLanguageIndex = 1
注意:以上代码要在WindowsMediaPlayer1控件播放视频时才能调用,否则可能会出错。