Как отключить мышь, и что еще можно делать по укурке?

[Khachkara]

Скажите пожалуйста какая команда отключает мышь
Мне нужно через раз отдать управление мыши к клавиатуре и обратно.
Спасибо

[awl100Alex]

Скажите пожалуйста какая команда отключает мышь

Нет такой команды, а есть хуки.

...через раз отдать управление мыши к клавиатуре и обратно...

Это как??? Поясни...

[Khachkara]

представьте игру XO
когда ход у X мышь активна и ты ты можешь выбрать любой квадрат и кликнуть, а после клика мышь отключаеться и управление переводиться клавиатуре и при нажатии соответсвующей клавыши ставится O

[RayShade]

По моему, это нафиг не нужно. Игра походовая, так что все едино, через что ставить Х и О

[Khachkara]

В принципе да, это когда ты крутой программист тогда может быть.
А для начунающего интересно лазит по всем щелочкам и испробовать все возможности программирования, короче по випендриваться охота, заодно и обучение.
Но всё равно спасибо за совет

[awl100Alex]

...когда ход у X мышь активна и ты ты можешь выбрать любой квадрат и кликнуть, а после клика мышь отключаеться...

Я так думаю, что хуки здесь не нужны. Для блокировки мышки используй в самой проге просто флаги.
Вот как пример...

[Khachkara]

Для блокировки мышки используй в самой проге просто флаги

спасибо большое, но я знаю этот способ и мне не очень интересно так поступать, хочеться чтобы одной командой отключить и включить мышь.
Такая команда наверняка есть.
Вот если бы кто то помог разобратся в объектах VB тогда у меня может быть и получиться
http://msdn.microsoft.com/ru-ru/library/eht682b5.aspx#

P.S. В вашем случии все объекти которые находяться в форме надо перевести в .enable=False чтобы получить эффект отключения и включения мыши.
Можно конечно написать функцию которая это делала но мне надо отключить именно мышь

[awl100Alex]

My.Computer.Mouse - не отключит... и врядли ты найдешь в VB такую команду.

[Khachkara]

если не найду то это означит что я очень сильно разочаруюсь в VB
Но будем искать
Находит тот кто ищет
По любому большое спасибо.

[iGrok]

Что значит "отключить мышь"? Сделать так, чтобы курсор не двигался? Сделать так, чтобы его не было видно? Сделать так, чтобы окно не реагировало на движения и нажатия кнопок мыши?

Если первое - считай никак.
Если второе - ShowCursor(0/1) - Но, честно говоря, это будет очень странный интерфейс. Я бы, как пользователь, убил такого программиста.
Если третье - просто сделай переменную-флаг "чей сейчас ход", и в зависимости от неё обрабатывай или не обрабатывай действия мыши и клавиатуры.

А отключать ничего не надо. Это плохо.

[Khachkara]

я изучаю возможности VB просто ради этого
Отключить это значит, что бы сделать его невидимым и не дееспособным

[Debugger]

Можно попробовать поиграться с ClipCursor и с SetCursorPos (в цикле). В комбинации с ShowCursow SW_HIDE.

[GDK]

Попробуй почитать про API-функции. Там вроде есть белее/менее простая ф-ция чисто для откл./вкл. мышки.

[Khachkara]

примерчик маленький можно?

[awl100Alex]

Debugger
ClipCursor - снимается по нажатию Ctrl+Alt+Del. Так что ее можно не использовать. А в отношении других функций... так они не отключают реакцию объекта на события клика.

[iGrok]

я изучаю возможности VB просто ради этого
Отключить это значит, что бы сделать его невидимым и не дееспособным

ShowCursor ( 0 / 1 )

Код: Выделить всё

Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
Public Sub ShowMouse()
    ShowCursor 1
End Sub
Public Sub HideMouse()
    ShowCursor 0
End Sub


И в окне твоей проги курсора мыши нету.
Плюс отключай реакцию окна на курсор по флагу в своих же обработчиках.

Отключить его для всей ОС нельзя. Да и необходимости такой у тебя нету.
Отключить его полностью для одного окна (чтобы не было ни картинки, ни реакции) одной командой - тоже нельзя.

[awl100Alex]

Отключить это значит, что бы сделать его невидимым и не дееспособным

Не дееспособным в отношении всей системы, что-ли или только твоего окна???

Отключить его для всей ОС нельзя.

Можно! Глобальным хуком на WH_MOUSE.

[iGrok]

Можно! Глобальным хуком на WH_MOUSE.

О да.. Гениально..

Можно вообще выдернуть мышь из системника. Так оно надёжнее будет.

[Khachkara]

Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
Public Sub ShowMouse()
ShowCursor 1
End Sub
Public Sub HideMouse()
ShowCursor 0
End Sub

Спасибо получилось!

[iGrok]

Спасибо получилось!

Только учитывай, что курсор просто скрыт, а на самом деле мышь работает. Т.е. если подвести её примерно к середине формы и нажать кнопку мышь, событие произойдёт.

[Khachkara]

да я это сразу заметил.
но все равно это больше чем ничего.
А чтобы она перестала работать, никак не получиться.

[Хакер]

Лучше ничего, чем это.

[iGrok]

но все равно это больше чем ничего.

Лучше действительно "ничего", чем это. Нафига скрывать мышь? Если так - эксперимента ради - то пожалуйста. Если ты реально хочешь это использовать в интерфейсе реально программы - лучше сразу сам себе оторви руки.

З.Ы. Как можно по-человечески реализовать твою идею было написано несколько выше - сделать так, чтобы элементы управления на форме просто не реагировали на мышь. Т.е. проверять в обработчиках чей сейчас ход.

З.З.Ы. А скрывать курсор - это плохо. Почему? К примеру, попробуй в момент хода "клавиатуры" (когда скрыт курсор) закрыть окно программы. Или(ещё лучше) переместить его в другой угол экрана.

[[LEV&n]]

если не найду то это означит что я очень сильно разочаруюсь в VB
Но будем искать
Находит тот кто ищет
По любому большое спасибо.

Ммм... конфигурация мыши находится в BIOS, т.е. если мы отключаем мышь, то на протяжении всей сессии мы не сможем получить к ней доступ, поэтому рекомендую некий show/hide мыши, причём целеком искусственным методом. Т.е прозрачный курсор и пару переменных, которые реагируют на мышь или не реагируют на неё. Жду корректив от Хакера, мои идеи никогда не приводили его в восторг.

[Хакер]

... и этот раз — не исключение

[[LEV&n]]

... и этот раз — не исключение

Ничего не поделаешь, у Вас учимся, затем своих братьев меньших опускаем. После настаёт время, когда методы дедов становятся не прогрессивными и они, как все смертные отчаиваются, ждите своего часа. Билл Гейтс тоже не вечен.

[awl100Alex]

А чтобы она перестала работать, никак не получиться.

Получится!

Вот написал специально для тебя Native DLL на PowerBasic, которая ставит глобальный хук мышки и отключает её для всей системы. Если быть точным, то - отключает реакцию всей системы на события мышки. В приложении исходник и сама DLL-ка с примером использования. В библиотеке только(!) реализация Hook’a и больше ничего лишнего. Можешь не боятся её использовать.

[iGrok]

Получится!

А ты всё-таки маг, алхимик, и адепт чёрной магии...

[Khachkara]

Получится!
Вот написал специально для тебя Native DLL на PowerBasic, которая ставит глобальный хук мышки и отключает её для всей системы. Если быть точным, то - отключает реакцию всей системы на события мышки. В приложении исходник и сама DLL-ка с примером использования. В библиотеке только(!) реализация Hook’a и больше ничего лишнего. Можешь не боятся её использовать.

Спасибо awl100Alex огромное. Я теперь знаю на кого ровняться, считаю вас истинным авторитетом. Сделали дело без лишнего трепа.
Я, как и вы, считаю, что нет смысла в приложении отключать мышь, я просто хотел убедиться, что в VB можно всё.
P.S. Вообще у меня много таких не стандартных задумок, но учитывая то как накалилась обстановка из-за простого отключения мыши я решил воздержаться от таких идей как отключения клавиатуры, разделение экрана на 4 части и т.д
ГОСПОДА надо делать дело, а не трепаться. Учитесь у awl100Alex.
СПАСИБО всем тема закрыта, все свободны.

[Хакер]

ГОСПОДА надо делать дело, а не трепаться.

Надо. С одной лишь оговоркой: если это дело — правильное, хорошее, нужное, законное.

Учитесь у awl100Alex.

Чему нам учиться у этого двоечника? Учиться делать с горящими глазами любое дело, не задумываясь, а надо ли, а правильно ли?