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

2019-02-23 08:52:07 528 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

123工艺品墨衍会员 · AI 创作全网分发关注 + 加入社区

基于WindowsMediaPlayer控件的播放器趁着暑假写写小项目，开学又不能安心敲代码了。整个程序的界面设计参考自《WinForm项目实战》，本篇文章中只是实现了音频播放器的基本功能，之后会继续完善其他功能。立即下载

WindowsMediaPlayer版本 12.0.7601.19148

RT

...全文

VB.NET中如何播放音频视频 VB.NET中如何播放音频视频，此处提供四种方法:使用Microsoft.DirectX.AudioVideoPlayback组件立即下载

123工艺品

VB 16,718 成员 110,520 内容

+ 关注 + 加入社区

切换为时间正序

123工艺品 2019-03-03

打赏
举报



 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