2016-01-19 4 views
0

Я хочу сделать приложение в visual studio 2010 (vb.net), которое может регулировать скорость указателя мыши с помощью трекбара. Мне нужна помощь.настроить скорость указателя мыши с помощью visual studio 2010

Public Sub getSpeedval() 

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

End Sub 
+0

Как вы можете рассчитывать на достижение этого, если не знаете? Нет никакого способа, чтобы кто-то мог просто дать вам полное пошаговое руководство для чего-то подобного? –

+0

извините, сэр, только новичок, но вот код, который я пробовал, но он не работал, просто нужна помощь для моего проекта. – Jomar

+1

ОК, я вижу, вы новичок на этом сайте и не знаете, как все работает здесь. Что вам нужно сделать, так это отредактировать свой вопрос. При редактировании добавьте код из комментария выше (код в комментариях трудно прочитать, вставьте код при редактировании вопроса, затем выберите код и нажмите Ctrl + K). Кроме того, дайте более подробное описание того, чего вы хотите достичь. Наконец, назовите программный язык, который вы используете, и добавьте его тег в вопрос. Больше людей попытаются помочь вам таким образом. –

ответ

-1

Я не могу реализовать всю программу для вас, но я могу помочь вам с кодом, который вы опубликовали. Этот код предназначен для получения данных со значения MouseSpeed ключа HKCU\Control Panel\Mouse. У него две проблемы, первая из которых - неправильный путь к ключу. Вам нужно пространство между «Control» и «Panel». Вторая проблема заключается в том, что Sub в VB - это функция, которая не возвращает значение. Вам необходимо создать 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") 

Надеюсь, это поможет вам, чтобы вы могли завершить свою программу. Удачи!

EDIT:

Пожалуйста, не то, что вы должны использовать значение MouseThreshold1 и MouseThreshold2, а не только MouseSpeed.

+0

Любые комментарии для downvote? –

+0

Я попробовал это сэр, он получает и меняет значение, но скорость указателя не изменяется. то, что я хочу, - когда я устанавливаю значение, движение указателя также будет медленно двигаться, когда я устанавливаю значение в 1 и быстро в большем значении. возможно ли это сэр? спасибо за исправления сэр. оценили! – Jomar

+0

Я не ответил на ваш ответ сэр, я не знаю, почему он идет -1, я нажал на голосование, но он не изменился, есть сообщение «Спасибо за обратную связь! После того, как вы заработали 15 репутации, ваши голоса будут измените отображаемый отчет публичности ». – Jomar