Mouse Move
Здрасьте!
У меня такой вопрос:
Я хочу, чтобы при наведении мыши, например, на Image, последний менял цвет. Для этого я использую событие MouseMove. Но вот незадача: если рядом с Image есть ещё один Image, то при быстром движении мыши событие не успевает происходить и цвет не меняется. Как можно исправить эту прооблему?
Спасибо !!!
У меня такой вопрос:
Я хочу, чтобы при наведении мыши, например, на Image, последний менял цвет. Для этого я использую событие MouseMove. Но вот незадача: если рядом с Image есть ещё один Image, то при быстром движении мыши событие не успевает происходить и цвет не меняется. Как можно исправить эту прооблему?
Спасибо !!!
Проверяй положение курсора по таймеру. В таймере обрабативаеться подобный етому код:
If MouseX > Image.Left Or MouseX < (Image.Left + Image.Width) And MoseY > Image.Top Or MouseY < (Image.Top + Image.Height) Then
Cls
Print "Курсор над рисунком"
Else
Cls
Print "Курсор гуляет по екрану"
End If
Узнать текущие координаты курсора можно функцыей GetCursorPos (Что ето API-функцыя я думаю все знают).Чем чаще таймер будет пробивать код - тем бистрее будет работать твоя задумка.
If MouseX > Image.Left Or MouseX < (Image.Left + Image.Width) And MoseY > Image.Top Or MouseY < (Image.Top + Image.Height) Then
Cls
Print "Курсор над рисунком"
Else
Cls
Print "Курсор гуляет по екрану"
End If
Узнать текущие координаты курсора можно функцыей GetCursorPos (Что ето API-функцыя я думаю все знают).Чем чаще таймер будет пробивать код - тем бистрее будет работать твоя задумка.