16,554
社区成员
发帖
与我相关
我的任务
分享
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