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

我无法为您实现整个程序，但我可以帮助您使用已发布的代码。此代码处理从密钥MouseSpeed的值HKCU\Control Panel\Mouse检索数据。它有两个问题，第一个问题是密钥的路径不正确。你需要一个空间＆＃34; Control＆＃34;和＆＃34;小组＆＃34;。第二个问题是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

你可以像这样使用这个功能：

setSpeedval("2")

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

编辑：

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

使用visual studio 2010调整鼠标指针速度

1 个答案: