Изменить положение мыши на форме

[IVAN008]

В поиске не нашел!
Задача:
Пусть мышь, точнее курсор, лвигается по форме, горизонтально вправо.
После того, как курсор пройдет какую-то координату Х, он должен вернуться в начало формы (по гризонтали) Х = 0
Раньше я как-то это делал.... не могу вспомнить....
ПОМОГИТЕ!!!!

[Antonariy]

SetCursorPos

[IVAN008]

Спасибо, это не работает. Программирую в VB6.
Он такой функции не знает..... может это функция API????
Тогда как ее объявить??

[Viper]

Конечно же API
Private Declare Function SetCursorPos Lib "user32" Alias "SetCursorPos" (ByVal x As Long, ByVal y As Long) As Long

[Antonariy]

Догадываюсь.
Определенно это API.
В комплекте VB6 идет тулза под названием API Viewer, большая часть API-функций там задекларирована.
Но если лень сделать пару щелчков мыши, если лень ввести в гугл declare SetCursorPos... то и мне лень.

[Денис]

Раньше я как-то это делал...

Oh, really?..

[Viper]

Денис, это вот к чему?

[IVAN008]

Удалил.....

[Viper]

IVAN008, оно конечно Спасибо за спасибо, и соответственно Пожалуйста, но вот все, что было до последнего абзаца явно лишнее.
З.Ы. Я тоже непрофессиональный программист, однако мне не лениво самому слазить в API Viewer или еще лучше в MSDN.

[Денис]

А я вообще не программист!

[IVAN008]

Удалил....

[alibek]

Пользователь Денис действительно порой флудит не по делу. Когда-нибудь это будет оценено.
Пользователь IVAN008 действительно слишком ленив. Даже если он не знает, что такое SetCursorPos, поиск в гугле даст правильный ответ уже на первой ссылке. Описание подфорума давно следовало бы изменить, потому что помощь оказывается тому, кто сам старается разобраться, а не ждет готового решения.
IVAN008, если ты действительно готов самостоятельно искать информацию, просто не знал, с чего начать, это хорошо. Но первое впечатление было, что ты типичный лентяй, который хочет все готовое и которых тут не жалуют.

[awl100Alex]

IVAN008
Затерзали тебя просто жуть...

Вот... набросал на скорую руку... Может это то, что тебе нужно?
Только мышку в этом примере нужно двигать на форме(!) слева направо и не очень быстро!! А то событие перехода курсора не сработает. Вообщем, это пример, а ты уже доработай его как нужно.
Чтобы было понятно, старался подробно заполнить комментами...

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

'Создаем структуру типов данных для заполнения, при вызове GetWindowRect...
Private Type RECT
    'Относительно экрана...
    Left As Long    'X
    Top As Long     'Y
    Right As Long   'dX
    Bottom As Long  'dY
End Type
'Функция для получения положения формы на экране...
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
'Функция для изменения положения курсора мышки...
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long

'Ловим события мыши на форме...
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

'Создаем зону перехода мышки в начало (Х = 0)
ZonaX = Me.Width - 350 'Коэффициент 350 произвольный!
'Рисуем граничную линию перехода для наглядности...
Line (ZonaX, 0)-(ZonaX, Me.Height)

'Начинаем отлов...
Select Case X 'X - текущее положение мышки на форме в Твипах
   Case Is > ZonaX
    Dim Rec As RECT
    'Получаем Left, Right, Top and Bottom нашей Form1 <=> (Me)
    GetWindowRect Me.hwnd, Rec
    'Устанавливаем мышку в начало (X = 0 <=> Rec.Left)
    ddY = Rec.Top + (Rec.Bottom - Rec.Top) \ 2 'Середина формы...
    SetCursorPos Rec.Left, ddY
End Select
End Sub 

P.S.
А еще скачай вот эту штукенцию...
http://www.devhood.com/Tools/tool_details.aspx?tool_id=563
...полезная вещь по API!