Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: События мыши Добавлено: 26.11.08 12:30  

Автор вопроса:  tz-man | Web-сайт: terabayt.info | ICQ: 369431909 
Здравствуйте. Подскажите, пожалуйста, как можно определить события MouseDown, MouseUp на уровне системы (даже если эти события происходили на объектах, которые не поддерживают обработку этих сообщений)?

Ответить

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

Номер ответа: 1
Автор ответа:
 @lex



Вопросов: 14
Ответов: 262
  Профиль | | #1 Добавлено: 26.11.08 13:01
  1. Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
  2. Dim iL, iR As Integer
  3. Dim bL, bR As Boolean
  4. Private Sub Timer1_Timer()
  5. iL = GetAsyncKeyState(vbLeftButton)
  6. iR = GetAsyncKeyState(vbRightButton)
  7.     If iL = -32767 Then
  8.     bL = True
  9.     MsgBox "Нажата левая педалька"
  10.     ElseIf (iL = 0) And (bL = True) Then
  11.     bL = False
  12.     MsgBox "Отпущена левая педалька"
  13.     End If
  14.     If iR = -32767 Then
  15.     bR = True
  16.     MsgBox "Нажата правая педалька"
  17.     ElseIf (iR = 0) And (bR = True) Then
  18.     bR = False
  19.     MsgBox "Отпущена правая педалька"
  20.     End If
  21. End Sub

Ответить

Номер ответа: 2
Автор ответа:
 tz-man



ICQ: 369431909 

Вопросов: 6
Ответов: 11
  Web-сайт: terabayt.info
 Профиль | | #2 		Добавлено: 26.11.08 14:32
Спасибо, думал в эту же сторону, но думал, может еще что есть :)

Ответить

Номер ответа: 3
Автор ответа:
 Ra$cal



ICQ: 8068014 

Вопросов: 18
Ответов: 817
  Web-сайт: www.rascalspb.narod.ru
 Профиль | | #3 		Добавлено: 27.11.08 14:17
хуки глобальные для этого есть, мышиные низкоуровневые

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам