如何用VB.NET控制WindowsMediaPlayer的可视化效果

[123工艺品]

WindowsMediaPlayer版本 12.0.7601.19148

RT

[123工艺品]

1111111

[吹风的兔子]

.Net 下的 播放器组件，其实还是有很多的 —— 楼主为什么非得纠结于 WindowsMediaPlayer ？ 楼主还是大声说出自己的需求， 有更简单的替代方案我们帮体替代， 实在不行再帮你 想办法 拦截 WindowsMediaPlayer 并将其控制。

[123工艺品]

兔子，，音频可视化有控件的话请发个

谢谢

[123工艺品]

 Private Function getEffectIndex() As Integer
        Dim myKey As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("Software\Microsoft\MediaPlayer\Preferences\")
        Return CInt(myKey.GetValue("CurrentEffectPreset", -1))
    End Function
    Private Function getEffectName() As String
        Dim myKey As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("Software\Microsoft\MediaPlayer\Preferences\")
        Return myKey.GetValue("CurrentEffectType", "noname").ToString
    End Function
    Private Sub setEffect(ByVal myEffectindx As Integer, ByVal myEffectname As String)
        Dim mywmpKey As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser.CreateSubKey("Software\Microsoft\MediaPlayer\Preferences\")
        mywmpKey.SetValue("CurrentEffectPreset", myEffectindx)
        If myEffectname = "" Then
        Else
            mywmpKey.SetValue("CurrentEffectType", myEffectname)
        End If
        mywmpKey.Close()
    End Sub
    Private Sub setEffect(ByVal myEffectindx As Integer)
        Dim mywmpKey As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser.CreateSubKey("Software\Microsoft\MediaPlayer\Preferences\")
        mywmpKey.SetValue("CurrentEffectPreset", myEffectindx)
    End Sub
    Private Sub 读取音频可视化ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 读取音频可视化ToolStripMenuItem.Click
        MsgBox("可视化名：" + getEffectName() + "，序号" + getEffectIndex.ToString, MsgBoxStyle.Information + MsgBoxStyle.OkOnly, Me.Text)
    End Sub

    Private Sub 改变音频可视化ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 改变音频可视化ToolStripMenuItem.Click
        setEffect(getEffectIndex() + 1)
    End Sub
    Private Sub 上一音频可视化效果ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 上一音频可视化效果ToolStripMenuItem.Click
        setEffect(getEffectIndex() - 1)
    End Sub

仅供参考
需重新打开程序才能改变
不能选择可视化