Как правильно юзать Over событие

[VERITAS]

Привет всем !:

Товарищи подскажите как определять когда я навел курсор на кнопку а когда его на ней нет, нужен более сложный способ (можно с GetCursorPos

У меня был когда-то пример от нашего соотечественника, там были нестандартные кнопки, с trancparent областями и они правильно реагировали на наведение и на отсутствие такового. Только вот теперь я его не могу найти.

Кстати с деактивированием на форме или других объектах не катит.. :

[_Мика_]

У меня получалось такое сделать если только у объекта есть хвнд!

[VERITAS]

Можно поподробнее.

Я вообще-то Юзер-Контрол пишу, так вот мне необходимо при наведении на него он сменял изображение (это работает), а вот как обратно его в deffault поставить при неактиве

[_Мика_]

Лучше юзай PictureBox или каким нибудь образом достань у CommnadButton'а HWND, тогда дам пример!

[_Мика_]

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

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) = Form1.hWnd Then
Beep
End If
End Sub


[/quote]

[VERITAS]

Реально работает.
Поставленная задача решена, однако:
1) Как обойти hwnd или как его создать для какого нибудь объекта.
2) Нельзя ли так, чтобы без таймера

Спасибо за помощь

[tyomitch]

Можно и без таймера: http://bbs.vbstreets.ru/viewtopic.php?t=11328

[VERITAS]

tyomitch прошелся по ссылкам, но конечный ответ не найти, так как там дальше ссылки битые.

Однако из постинга по ссылке уяснил, что нужно искать решение с WM_MOUSELEAVE и т.п. Буду искать тому решение.

[VERITAS]

Попробовал создать два контрола: OptionBox и CheckBox

Посмотрите, что получилось. Оцените и укажите на ошибки и недостатки.

Еще я не знаю как сделать так, чтобы OptionBox связывались друг с другом (если находятся на одной форме или фрейме, только один из них становился true ??)

[_Мика_]

Если у тебя два фрейма, и ты именно на них рисуешь Option то все работает!

[tyomitch]

Еще я не знаю как сделать так, чтобы OptionBox связывались друг с другом (если находятся на одной форме или фрейме, только один из них становился true ??)

Свойству Value задать тип OLE_OPTEXCLUSIVE

[VERITAS]

Спасибо !!!

tyomitch, _Мика_ - все получилось, теперь все работает. Огромное спасибо, наконец-то решил эту проблему. Да и теперь я хоть научился Кнтролы делать.