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

Question

我想在Visual Studio 2010（vb.net）中创建一个可以使用跟踪栏调整鼠标指针速度的应用程序。我需要帮助。

Public Sub getSpeedval()
Dim NewKey As RegistryKey = Registry.CurrentUser.OpenSubKey("ControlPanelMouse", True)
Dim GetVal As String = CType(NewKey.GetValue("MouseSpeed"), String)
End Sub

Answer 1

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

Public Function getSpeedval()
    Dim NewKey As RegistryKey = Registry.CurrentUser.OpenSubKey("Control PanelMouse", 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 PanelMouse", True)
    NewKey.SetValue("MouseSpeed", newSpeed)
End Sub

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

setSpeedval("2")

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

编辑：

请不要使用值MouseThreshold1和MouseThreshold2，而不仅仅是MouseSpeed。