Страницы: 1
RSS
Events for MouseMove
 
Всем привет,  
 
Наверное плохо ищу. Вопрос:  
 
Можно ли создать на листе отслеживание события перемещения указателя мыши?  
 
СПАСИБО.
 
Владимир, помню Павел55 и Юрий М как то кучу примеров писали пока разобрались что нужно отследить мыша или или просто курсор Ехс. Может с крахом и ушло, а может Юрий вспомнит. С ходу не нашел:((
 
Как вариант: если мы может узнать, над какой ячейкой находится курсор мыхи, то перемещение за пределы этой ячейки отследить ведь удастся? Точность, правда, небольшая... Но для некоторых целей может и устроить.
 
Спасибо, что откликнулись ребята.  
 
Как определить координаты мыша я знаю API-функция:  
 
Declare Function GetCursorPos Lib "user32" _  
(lpPoint As POINTAPI) As Long  
Type POINTAPI  
   X As Long  
   Y As Long  
End Type  
Private Sub CommandButton1_Click()  
   Dim a As POINTAPI  
   GetCursorPos a  
   MsgBox (a.X & " " & a.Y)  
End Sub    
 
Но чтобы получать эти значение необходимо событие, SelectionChange не походит.
 
Например, в ячейке отображаются координаты мышки. Налицо событие Change. Или я не о том?
 
Мне нужны координаты мыша при изменении его положения на экране. Не к чему привязаться...
 
А я разве о чём-то другом говорю? В пределах листа отслеживаются координаты курсора. Отображаются в ячейке. Изменение в ячейке отслеживаются.
 
Здесь есть пример отслеживания координат мыши на листе:<BR>http://www.programmersforum.ru/showpost.php?p=403644&postcount=3
 
Признаюсь, что не Best, но факт, что работает.
 
ZVI аналогичный пример выкладывал.
 
Ну уж нетушки, раньше надо было - сам выстрадал!!!
 
:-) Это, судя по всему, подготовка к штурму темы, где что-то про "направляющие"?
 
Ну конечно же Юрий, вот Вы догада!:)  
Чуток с автофигурами разберусь и выложу, должно прикольно получиться.
 
Я пытался, используя пример ZVI, гонять по экрану "прицел" вслед за мышкой, Но начались трудности с вычислением коэффициента - "прицел" всё время бежал быстрее мышки. Мне надоело за ним гоняться, и я подумал, что в Казахстане с этими погонями справятся лучше :-)
 

Да, реально крыша съехала на координатах листа. Мне понравилось высказывание Cutty Sark http://forum.codenet.ru/showthread.php?t=9328 по поводу единиц измерения exceleвских листов. Замутил совершенно никчемный прибамбас. Правда работает пока только в верхнем углу листа. http://www.planetaexcel.ru/docs/forum_upload/post_98347.xls

 

Страницы: 1
Читают тему
Наверх