BaloonTip на Тoolbar

[_igor_]

Привет!
Хочу прикрутить BaloonTip (взял где-то тут в разделе примеров)
к Тoolbar, и возникает такая проблема: для функции нужно знать hWnd контрола, а кнопки Тoolbar'а такового не имеют.
Создавать "свой" Тoolbar из обычных commandButton не подойдет.

[Lumen]

Попробуй в SPY++ посмотреть какие сообщения передаются тулбару, и привязаться к какому-нить, например WM_NOTIFY. То есть когда возникает это сообщение, смотри ControlID кнопки или позицию курсора и определяй, для какой кнопки показывать тултип. А hwnd можно я думаю тулбаровский взять.

[_igor_]

спс,попробую...

[burik]

Я думаю можно использовать событие ToolBar_MouseMove, а по координатам можно определить кнопку. Что-то типа того:

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


Private Sub Toolbar1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
    Select Case x
    Case Toolbar1.Buttons(1).Left To Toolbar1.Buttons(1).Left + Toolbar1.Buttons(1).Width
        ...
    Case Toolbar1.Buttons(2).Left To Toolbar1.Buttons(2).Left + Toolbar1.Buttons(2).Width
        ...
    End Select
End Sub


[_igor_]

Я думаю можно использовать событие ToolBar_MouseMove, а по координатам можно определить кнопку. Что-то типа того:

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

Private Sub Toolbar1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
    Select Case x
    Case Toolbar1.Buttons(1).Left To Toolbar1.Buttons(1).Left + Toolbar1.Buttons(1).Width
        ...
    Case Toolbar1.Buttons(2).Left To Toolbar1.Buttons(2).Left + Toolbar1.Buttons(2).Width
        ...
    End Select
End Sub


Спасибо, хорошая идея
Только оказалось, что Toolbar не хочет дружить с BaloonTip почему-то,
делаю так:

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

Private Sub Form_Load()
    Dim TT As New cToolTipEx
    Call TT.CreateToolTip(Me.hWnd, TTS_BALLOON, icoTTInfo, , 100, 500, 10000)
    Call TT.AddToolTip(cmdNext.hWnd, "Go to next step!", TTF_TRANSPARENT)
    Call TT.AddToolTip(Toolbar1.hWnd, "Go to next step!", TTF_TRANSPARENT)
End Sub

на кнопке cmdNext все появляется как надо, на тулбаре по идее должен появиться "общий" тултип для всех кнопок, но не появляется ничего почему-то.
Если прямо в свойстве tooltiptext прописать что-нибудь, отображается как обычный тултип

[burik]

Я тоже поэксперементировал с ToolBar'ом и Baloon. Дружить-то они дружат. Вся фишка в том что внутри окна контрола ToolBar, находится еще одно окно с собственным hWnd и т. д., на котором и рисуются все кнопки. Короче, я выставил BorderStyle=1, тогда при наведении на рамку самого ToolBar'а (не кнопки!) появляется подсказка. Надо попробовать найти дочернее окно..

[_igor_]

Я тоже поэксперементировал с ToolBar'ом и Baloon. Дружить-то они дружат. Вся фишка в том что внутри окна контрола ToolBar, находится еще одно окно с собственным hWnd и т. д., на котором и рисуются все кнопки. Короче, я выставил BorderStyle=1, тогда при наведении на рамку самого ToolBar'а (не кнопки!) появляется подсказка. Надо попробовать найти дочернее окно..

Интересно. Попробовал сделать как ты, тоже работает при наведении на рамку А как ты выяснил что есть еще одно окно со своим hwnd?
Откуда т.с. ноги растут?:)

[burik]

Поковырялся немного и получилось. При загрузке формы ищу дочернее окно ToolBar'а (оно у него единственное как говорит Spy++) при помощи FindWindowEx. Класс этого окна "msvb_lib_toolbar". Далее делаю как описывал выше. Все работает.

[_igor_]

Ага ясно. Сейчас тоже попробую... правда вместо spy++ у меня winID,
но наверно не суть важно
Спасибо за помощь!