vb.net - 为什么不能用滑块设置 AxWindowsMediaPlayer 对象的音量？

Question

每当我尝试这样说媒体播放器的音量时：

Private Sub SndMasterSlider_ValueChanged(sender As Object, e As EventArgs) Handles SndMasterSlider.ValueChanged
    Player1.settings.volume = SndMasterSlider.Value
End Sub

我收到此错误：An exception of type 'System.Windows.Forms.AxHost.InvalidActiveXStateException' occurred in AxInterop.WMPLib.dll but was not handled in user code

Answer 1

假设 Slider 是TrackBar控件，您将在创建表单时遇到该异常（您没有说在哪里，但我敢打赌那是在哪里）。这是因为设计器代码将在创建控件Value之前设置因此触发 ValueChanged 事件：AxWMP

 Me.TrackBar1.Value = 50

即使正在创建表单，这也会触发事件。您可以设置一个标志来指示何时处理ValueChanged事件，手动添加处理程序或仅使用Scroll在用户实际移动拇指时将触发的事件。

Private Sub TrackBar1_Scroll(...
    AxWMP.settings.volume = TrackBar1.Value
End Sub