使用 Visual Studio 2010 调整鼠标指针速度

Question

我想在 Visual Studio 2010 (vb.net) 中制作一个可以使用轨迹栏调整鼠标指针速度的应用程序。我需要帮助。

Public Sub getSpeedval()

Dim NewKey As RegistryKey = Registry.CurrentUser.OpenSubKey("ControlPanel\Mouse", True)
Dim GetVal As String = CType(NewKey.GetValue("MouseSpeed"), String)

End Sub

Answer 1

我无法为您实现整个程序，但我可以帮助您处理您发布的代码。此代码处理从键 HKCU\Control Panel\Mouse 的值 MouseSpeed 中检索数据。它有两个问题，第一个是密钥的路径不正确。您需要在“控制”和“面板”之间留一个空格。第二个问题是VB中的Sub是一个不返回值的函数。 您需要创建一个Function。以下是它的外观：

Public Function getSpeedval()
    Dim NewKey As RegistryKey = Registry.CurrentUser.OpenSubKey("Control Panel\Mouse", True)
    Dim GetVal As String = NewKey.GetValue("MouseSpeed")

    Return GetVal
End Function

然后你可以像这样在Main 函数中调用它：

Dim mouseSpeed = getSpeedval()
MsgBox("The value is " & mouseSpeed)

您可以使用Sub 创建一个设置新鼠标速度的函数，因为它不需要返回值：

Public Sub setSpeedval(newSpeed)
    Dim NewKey As RegistryKey = Registry.CurrentUser.OpenSubKey("Control Panel\Mouse", True)
    NewKey.SetValue("MouseSpeed", newSpeed)
End Sub

你可以像这样在 main 中使用这个函数：

setSpeedval("2")

希望这对您有足够的帮助，以便您完成您的计划。祝你好运！

编辑：

请注意，您必须使用值 MouseThreshold1 和 MouseThreshold2，而不仅仅是 MouseSpeed。