Вопрос № 23846: Уважаемые эксперты! Как отключить мышь в своей проге (чтобы юзер мог работать только на клавиатуре), т.е. чтобы мышью нельзя было передать фокус от одного textbox другому и т.д.?
...
Вопрос № 23.846
Уважаемые эксперты! Как отключить мышь в своей проге (чтобы юзер мог работать только на клавиатуре), т.е. чтобы мышью нельзя было передать фокус от одного textbox другому и т.д.?
Отправлен: 21.07.2005, 22:12
Вопрос задал: Александр А.А. (статус: Посетитель)
Всего ответов отправлено: 3
Отвечает: _Виталий
Здравствуйте, Александр А.А.!
Как вариант можешь использовать слудующий трюк: при попадании курсора на твою форму - переставляем курсор мыши в левый верхний угол рабочего стола :-))) Долго юзер будет мучиться, чтоб всё-таки кликнуть где-нить на форме :-))))
------------------------------------------------------------------
Private Declare Function SetCursorPos& Lib "user32" (ByVal X As Long, ByVal Y As Long)
Option Explicit
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim RetVal
RetVal = SetCursorPos&(0, 0)
End Sub
Ответ отправил: _Виталий (статус: 4-ый класс)
Отправлен: 21.07.2005, 22:57
Отвечает: *Kot*
Здравствуйте, Александр А.А.!
А ты забей во все процедуры с мышью такую вот строку:
exit sub
Должно помочь!
Ответ отправил: *Kot* (статус: Студент)
Отправлен: 22.07.2005, 12:20
Отвечает: Залетин Виталий Викторович
Здравствуйте, Александр А.А.!
http://www.vb.kiev.ua/ref/w32api/showdoc.php?f=showcursor
--------- Учиться никогда не поздно. Особенно программированию!