VBNet - Форум - Помогите!

Вопрос: Помогите! Добавлено: 05.04.03 19:02

Автор вопроса: Soul

Немогу сделать так чтобы screensaver выключался при движении мыши, когда я прописываю код
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
Cancelled = True
End Sub
то при запуске, даже без движения мышки, прога вырубается.
Подскажите пожалуйста
Зарание спасибо!

Ответить

Ответы Всего ответов: 4

Номер ответа: 1 Автор ответа: Gravity Вопросов: 6 Ответов: 120	Профиль \| \| #1	Добавлено: 05.04.03 21:07
	Напиши весь фрашмент кода, а то так не поймёшь Ответить

Номер ответа: 2
Автор ответа:

E-Man

Вопросов: 3
Ответов: 132

Профиль | | #2

Добавлено: 05.04.03 23:31

Че-то такое припоминаю... поставь счетчик на mousemove:

Dim i As Long

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

i = i + 1

If i > 20 Then End

End Sub

Так у меня все круто.

Ответить

Номер ответа: 3 Автор ответа: EROS Вопросов: 58 Ответов: 4255	Профиль \| \| #3	Добавлено: 06.04.03 00:45
	Да, согласен с предыдущим оратором... Без счетчика не обойтись! Вся фишка в том что при за пуске системой посылается окну как минимум 5-10 сообщений MouseMove, даже если ты мышой и не шевелил... Вот эти мессаги тебе и надо отсеить, чтобы твоя прога реагировала на реальный MouseMove... Ответить

Номер ответа: 4
Автор ответа:

E-Man

Вопросов: 3
Ответов: 132

Профиль | | #4

Добавлено: 06.04.03 14:25

Блин, так обнулите этот счетчик при событии Form_Paint (вроде так)... И дальше уже считайте. Или вообще используйте Boolean переменную совместно со счетчиком.

Dim i As Boolean

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If i Then End

'вот к этому делу добавляем счетчик - и все будет круто.. 'наверное
End Sub

Private Sub Form_Paint()
i = True
End Sub

Ответить

Страница: 1 |