Изменение текста у ToolTip

[Kovu]

Создаю тултип, и мне надо переиодически менять его текст .

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


Public Sub ModifyTip(ByVal NewText As String)
Dim modTip As TOOLINFO

With modTip
.hwnd = numtt(0)
GetClientRect numtt(0), .cRect
.lpszText = StrPtr(StrConv(NewText & vbCrLf & vbNullChar, vbFromUnicode)) 'App.hInstance
.uFlags = TTF_SUBCLASS Or TTF_IDISHWND
.uId = numtt(0)
.hinst = App.hInstance
.cbSize = Len(modTip)
End With
Call SendMessageLong1(numtt(0), TTM_UPDATETIPTEXT, &H0, VarPtr(modTip))
'Call SendMessage(numtt(0), TTM_ADDTOOL, &H0, modTip)
'Call SendMessage(numtt(0), TTM_SETTITLE, &H0, ByVal NewText)
End Sub


Пытался сделать и без указателей(и без StrPtr , и без VarPtr), но тем не менее текст подсказки не меняется, хотя TTM_SETTITLE спокойно меняет заголовок подсказки
Как же все-таки надо послать сообщение TTM_UPDATETIPTEXT чтоб текст тултипа всё-же поменялся?

[GSerg]

lpszText = NewText

[Kovu]

GSerg
Всё равно не работает как ни странно

[Kovu]

Люди, ну как такое может быть, что тандартное сообщение не работает?

[moppuk]

Можно через NotifyIconData например BallonTip выводить.
А можно вообще любой формы и содержания через класс HintWindow. И работай с ним как с любым другим чужим окном. С помощью SetWindowRgn придаешь любую форму, с помощью canvas пишешь и рисуешь что угодно и т.д.

[Kovu]

moppuk
У меня тултип не на иконке в трее =)
А создавать окно своими руками...зачем, если есть удобный класс в comctls32.dll ?

[moppuk]

Это как я понимаю всплывающее окошко, как в Opere при завершении загрузки?

[Kovu]

Никогда не видел как там в опере =)
Вообще тултип это всплывающая подсказка. У меня она сделана вручную.
P.S.
Ответьте хоть кто-нибудь как заставить это сообщение работать

[Kovu]

Уважаемые модераторы, если вы удаляете сообщения которые могут с легкостью быть найдены в поиске, будьте так любезны уделять хоть немного своего драгоценного времени для ответа на те вопросы, которых в нем нет (как пример мой ).

[tyomitch]

В таком виде работает:

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

Public Sub ModifyTip(ByVal NewText As String)
Dim modTip As TOOLINFO
With modTip
.hwnd = Form1.Command1.hwnd
.uId = Form1.Command1.hwnd
.lpszText = NewText
.cbSize = Len(modTip)
End With
Call SendMessage(numtt(0), TTM_UPDATETIPTEXT, &H0, modTip)
'Call SendMessage(numtt(0), TTM_ADDTOOL, &H0, modTip)
'Call SendMessage(numtt(0), TTM_SETTITLE, &H0, ByVal NewText)
End Sub


Здесь Form1.Command1.hwnd - тот хендл, который передавался первым параметром в SetTooltipProps.

[Kovu]

tyomitch
Спасибо огромное