Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Как отследить движение мышки и т.п.

3.6K
12 декабря 2005 года
timka-85
51 / / 07.11.2005
Можно ли с помощью VB6 отследить нажатие/перемещение мышки не по моей программе, а, например, по рабочему столу или по какому-либо другому приложению ?? ЗАРАНЕЕ СПАСИБО ....
15K
13 декабря 2005 года
Dowson
2 / / 13.12.2005
Цитата:
Originally posted by timka-85
Можно ли с помощью VB6 отследить нажатие/перемещение мышки не по моей программе, а, например, по рабочему столу или по какому-либо другому приложению ?? ЗАРАНЕЕ СПАСИБО ....


Точно не помню, но посмотри объект Screen. Если нет - то используй вызовы windowsAPI.

3.6K
19 декабря 2005 года
timka-85
51 / / 07.11.2005
Цитата:
Originally posted by timka-85
Можно ли с помощью VB6 отследить нажатие/перемещение мышки не по моей программе, а, например, по рабочему столу или по какому-либо другому приложению ?? ЗАРАНЕЕ СПАСИБО ....



Хотелось ы ещё знать, какие именно ?

15K
20 декабря 2005 года
Dowson
2 / / 13.12.2005
Цитата:
Originally posted by timka-85
Хотелось ы ещё знать, какие именно ?


Если экзампл не влез, оставь е-майл
MORE INFORMATION
The GetCursorPos() function returns a structure that contains the current position of the caret. To call the GetCursorPos() function from Visual Basic, you have to set up a Type structure. This is shown in the following example.

Step-by-Step Example
Start a new project in Visual Basic. Form1 is created by default.
From the File Menu, choose New Module.
Add the following code in the General Declarations section of the new module:
Type POINTAPI ' This holds the logical cursor information
x As Integer
y As Integer
End Type

Declare Sub GetCursorPos Lib "User" (lpPoint As POINTAPI)


Add a timer control (Timer1) to the form.
Add the following code to the Form_load event:
Sub Form_Load ()
timer1.Interval = 100
End Sub


Add the following code to the Timer1_Timer event:
Sub Timer1_Timer ()
Dim rect As POINTAPI
' Get the current mouse cursor coordinates:
Call GetCursorPos(rect)
FORM1.Cls
' Print out current position on the form:
Print "Current X = " & rect.x
Print "Current Y = " & rect.y
End Sub

ВЕЛИКАЯ ВЕЩЬ - MSDN. Тока не по-русски написана...

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог