помогите в создании activex

[v-adix]

создаю кнопочку на activex под дизайн своей проги. использую самый простой способ - 3 картинки и события. вопрос: как мне узнать курсор мышки находится над контролом или нет? если над контролом - понятно: срабатывает событие mousemove. а если курсор мышки уже покинул контрол?

[FaKk2]

v-adix

По идее тот же mousemove только на форме.

[v-adix]

v-adix

По идее тот же mousemove только на форме.

но мне придется посылать всем контролам сообщение о том что мышка сейчас над формой. это будет немного тормозить. нет более простого варианта? (по моему в vb.net было событие специально для этого, не знаю есть ли в vb)

[_Мика_]

v-adix

По идее тот же mousemove только на форме.

Тогда около кнопки, по краем, должна быть форма
Ито не факт, то чты ты мышкой не проскочишь эту форму.

2_v-adix
Ты юзаешь PictureBox? Если да, то

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

Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI                ' general use. Typically used for cursor location
    X As Long
    Y As Long
End Type

Private Sub Timer1_Timer()
Dim mousePt As POINTAPI
GetCursorPos mousePt
If WindowFromPoint(mousePt.X, mousePt.Y) = Picture1.hWnd Then
Beep
End If
End Sub


[v-adix]

_Мика_
спасибо! решение отличное!