Модераторы: Akina

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Управление курсорам мыши, Скорость курсора 
V
    Опции темы
bom
Дата 11.2.2007, 11:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 329
Регистрация: 22.2.2004
Где: Казахстан, Алматы

Репутация: 4
Всего: 6
Это + smile 
Поздравляю!
Код на С++ действительно не рабочий, там константа SPI_SETMOUSE (4) не правильная.

Добавлено @ 11:25 
Вернее она правильная, только для изменения MouseSpeed, MouseThreshold1, MouseThreshold2, но не для MouseSensitivity (которая и отвечает за скорость).

Да, еще надо константу SPIF_UPDATEINIFILE добавить, иначе реестр не обновится и после перезагрузки Винды скорость вернется к предыдущему значению.
Код

Const SPIF_UPDATEINIFILE = &H1

Sub changemousespeed(mspeed As Long)
SystemParametersInfo 113, 0, ByVal mspeed, SPIF_UPDATEINIFILE
End Sub


Это сообщение отредактировал(а) bom - 11.2.2007, 11:51
PM MAIL   Вверх
Kirill89
Дата 11.2.2007, 18:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 501
Регистрация: 17.10.2006
Где: Питер

Репутация: 3
Всего: 4
Предлагаю добавить это всё в faq, и подправить faq C++.  smile 


--------------------
user posted image
GSteam[dot]info
PM MAIL WWW   Вверх
cardinal
Дата 11.2.2007, 22:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Инженер
****


Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99
Как будет готово - скажите. Я добавлю в FAQ по VB.


--------------------
Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино".  А. и Б. Стругацкие
PM   Вверх
Kirill89
Дата 12.2.2007, 03:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 501
Регистрация: 17.10.2006
Где: Питер

Репутация: 3
Всего: 4
Цитата(cardinal @  11.2.2007,  22:55 Найти цитируемый пост)
Как будет готово - скажите. Я добавлю в FAQ по VB. 

Так вроде всё готово. Надо как-то оформить по faq'овски?


--------------------
user posted image
GSteam[dot]info
PM MAIL WWW   Вверх
cardinal
Дата 12.2.2007, 03:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Инженер
****


Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99
Ага. В принципе также, как и другие темы там оформлены... Чтобы было в одном сообщении видно, что поместить в FAQ (я ведь не могу во все темы углубляться). Спасибо!


--------------------
Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино".  А. и Б. Стругацкие
PM   Вверх
Kirill89
Дата 12.2.2007, 20:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 501
Регистрация: 17.10.2006
Где: Питер

Репутация: 3
Всего: 4
Для изменения скорости курсора мыши или получения её текущего значения
1) Модуль:
Код

Public Declare Function SystemParametersInfo Lib "user32" Alias _
    "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, _
    ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long
Public Const SPI_SETMOUSESPEED = 113
Public Const SPI_GETMOUSESPEED = 112
Public Const SPIF_UPDATEINIFILE = &H1

2) Для получения текущего значения скорости курсора:
Код

Dim MSpeed As Long
SystemParametersInfo SPI_GETMOUSESPEED, 0, MSpeed, 0 'значение скорости передаётся в переменную MSpeed
Print "Mouse speed = " & MSpeed ' выводим значение переменной на форму.

3) Для установки нового значения скорости курсора:
Код

Dim Speed As Long
Speed = SpeedTextBox.Text ' в текстовое поле SpeedTextBox вводится новое значение скорости
SystemParametersInfo SPI_SETMOUSESPEED, 0, ByVal Speed, SPIF_UPDATEINIFILE 'SPIF_UPDATEINIFILE - необходимо для обновления значения в реестре.



--------------------
user posted image
GSteam[dot]info
PM MAIL WWW   Вверх
cardinal
Дата 13.2.2007, 02:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Инженер
****


Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99
http://vingrad.ru/VB-VB-003091
http://vingrad.ru/VB-VB-003092
http://vingrad.ru/VB-VB-003093

Kirill89 +


--------------------
Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино".  А. и Б. Стругацкие
PM   Вверх
Kirill89
Дата 13.2.2007, 04:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 501
Регистрация: 17.10.2006
Где: Питер

Репутация: 3
Всего: 4
Всем большое спасибо!  smile 
Вопрос решен!


--------------------
user posted image
GSteam[dot]info
PM MAIL WWW   Вверх
cardinal
Дата 13.2.2007, 04:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Инженер
****


Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99
Ну типа того. smile

Да спасибо забыл сказать. smile

Спасибо!


--------------------
Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино".  А. и Б. Стругацкие
PM   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0516 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.