| Вопрос: Пара вопросов !! | Добавлено: 24.04.07 14:45 |
Автор вопроса:  noname_kazan
|
| Ответы | Всего ответов: 27 |
|
Номер ответа: 16 Автор ответа:  D o c a l  ICQ: 408802757 Вопросов: 76 Ответов: 985 |
Web-сайт: Профиль | | #16 | Добавлено: 24.04.07 21:53 |
|
Ставиш на форму text1
Dim a As Integer
Разумеетса ето глючно и не всегда раюотает
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If a = 1 Then Form1.Caption = "курсор не на обекте" a = 0 End Sub Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) a = 1 Form1.Caption = "курсор на обекте" End Sub А также можна и через api которая би узнавали hwnd обекта под курсором а тогда... |
||
|
Номер ответа: 17 Автор ответа: -АлександР- Вопросов: 55 Ответов: 1008 |
Web-сайт: Профиль | | #17 | Добавлено: 24.04.07 22:05 |
|
Тогда как определить когда курсор навели на объект, а когда отвели ?? MouseMove - событие движения курсора над объектом
|
||
|
Номер ответа: 18 Автор ответа: intel-DXICQ: 445091742 Вопросов: 4 Ответов: 169 |
Профиль | | #18 | Добавлено: 24.04.07 22:08 |
| Есть событие MouseMove, когда наводиш курсор на обект с ним выполняетса код события. | ||
|
Номер ответа: 19 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #19 | Добавлено: 25.04.07 00:27 |
|
ну.. достаточно наверное в любом поисковике набрать VB MouseOut, и вопросы отпадут.
Масса ведь способов - WindowFromPoint, просто по координатам мыши проверить итп итд... |
||
|
Номер ответа: 20 Автор ответа: altrego ICQ: 244-611-814 Вопросов: 3 Ответов: 28 |
Web-сайт: Профиль | | #20 | Добавлено: 25.04.07 17:29 |
|
MouseMove - событие движения курсора над объектом
Не совсем. Это событие выполняется и тогда, когда курсор просто над объектом висит. |
||
|
Номер ответа: 21 Автор ответа: AgentFireICQ: 192496851 Вопросов: 75 Ответов: 3178 |
Профиль | | #21 | Добавлено: 25.04.07 18:56 |
|
Не совсем. Это событие выполняется и тогда, когда курсор просто над объектом висит. Чистой воды ложь.
|
||
|
Номер ответа: 22 Автор ответа: EUGYВопросов: 0 Ответов: 454 |
Профиль | | #22 | Добавлено: 25.04.07 19:41 |
|
Тогда как определить когда курсор навели на объект, а когда отвели
см. поиск WM_MOUSEHOVER WM_MOUSELEAVE |
||
|
Номер ответа: 23 Автор ответа: altregoICQ: 244-611-814 Вопросов: 3 Ответов: 28 |
Web-сайт: Профиль | | #23 | Добавлено: 25.04.07 20:51 |
|
Чистой воды ложь.
Хм, а у меня тогда почему работает? Private Sub btnPagesLeft_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If (Me.frmPages.Item(0).Left >= 0) Then Exit Sub For i = 0 To 7 Me.frmPages.Item(i).Left = Me.frmPages.Item(i).Left + 15 Me.frmPages.Item(i).Refresh Next i Me.Frame3.Refresh End Sub Наводишь мышь на btnPagesLeft, фреймы движуться непрерывно (frmPages - это кучка фреймов) |
||
|
Номер ответа: 24 Автор ответа: AgentFireICQ: 192496851 Вопросов: 75 Ответов: 3178 |
Профиль | | #24 | Добавлено: 25.04.07 22:11 |
|
Me.frmPages.Item(i).Left = Me.frmPages.Item(i).Left + 15 Скажи мне что делает эта строчка и я скажу почему "у тебя это работает".
|
||
|
Номер ответа: 25 Автор ответа: altregoICQ: 244-611-814 Вопросов: 3 Ответов: 28 |
Web-сайт: Профиль | | #25 | Добавлено: 25.04.07 22:35 |
| Перемещает фрейм frmPages на 15 твипов в право, относительно текущего положения фрейма. | ||
|
Номер ответа: 26 Автор ответа: AgentFireICQ: 192496851 Вопросов: 75 Ответов: 3178 |
Профиль | | #26 | Добавлено: 25.04.07 23:00 |
| А теперь подумай — фрейм чувствует изменения положения мышки на себе? | ||
|
Номер ответа: 27 Автор ответа: altregoICQ: 244-611-814 Вопросов: 3 Ответов: 28 |
Web-сайт: Профиль | | #27 | Добавлено: 26.04.07 14:18 |
| Мыша вообще над кнопкой btnPagesLeft висит в этот момент, а сама кнопка вне этих фреймов. Этот же код я вставлял и вообще левый лейбл, и на другой фрейм. Все равно работает... | ||