Ещё Listbox и ToolTipText

Каюсь, поспешил закрыть тему!

Вскрылось несколько проблем.

1. Предложенный код выдаёт подсказки независимо от того помещается строка в окне текстбокса или нет. Эту проблему, может и не очень эстетично, но, отчасти, решить удалось выводя подсказку после сравнения с длинной видимой строки. Почему отчасти, это позднее.
2. Подсказка традиционно вылазит под курсором и позиционно привязана к нему. А вот как сделать, чтобы она появлялась приподнялась и совпала с нужной строчкой?
3. Если листбокс заполнен не полностью, то подсказка вылазит даже если её не 'просят'. Достаточно просто поставить курсор в поле листбокса, а не на строчку! И продолжает висеть, даже если курсор стоит на 'короткой' строке. (отсюда и 'отчасти'!)
4. В моём варианте листбокс - детка на TabStrip и при смене закладок меняет свои строчки. А вот подсказка остаётся от предыдущего! %(
Т.е. вопрос - как очищать?

Вот такие навороты. Покажите, плз, как с этим бороться.
Спасибо за внимание

0

Создай пустой проект с формой. На форме размести List1, Picture1 и - внутри Picture1 (!!!) - Label1. Помести это в код формы:
[code]
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Type POINTAPI
X As Long
Y As Long
End Type
Private Declare Function ClientToScreen Lib 'user32.dll' ( _
ByVal hwnd As Long, _
ByRef lpPoint As POINTAPI) As Long
Private Declare Function GetCursorPos Lib 'user32' ( _
lpPoint As POINTAPI) As Long
Private Declare Function ScreenToClient Lib 'user32' ( _
ByVal hwnd As Long, _
lpPoint As POINTAPI) As Long
Private Declare Function SendMessage Lib 'user32' Alias 'SendMessageA' ( _
ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Any) As Long
Private Const LB_ITEMFROMPOINT = &H1A9
Private Const LB_GETITEMRECT As Long = &H198
'
Private Sub Form_Load()
' Заполняем список символами; одну из строк делаем 'короткой':
With List1
.Width = 1000
.AddItem 'hjbdfvbhbdbvldflvhbl'
.AddItem 'zmbvmvmmbvmbvbxbnvmx'
.AddItem 'asdfg'
.AddItem 'jhkljhkljhjkhjhqwqek'
End With
' Текстовой метке придаём вид, похожий на окно стандартного тултипа:
With Label1
.AutoSize = True ' << очень удобное для нашей задачи свойство!
.Appearance = 0
.BorderStyle = 0
.BackColor = &H80000018
.ForeColor = &H80000017
.Left = 0
.Top = 0
End With
' Элемент Picture1 подгоняем точно под размер текстовой метки (дочки):
With Picture1
.Width = Label1.Width + 2 * Screen.TwipsPerPixelX
.Height = Label1.Height + 2 * Screen.TwipsPerPixelY
.BorderStyle = 1
.Appearance = 0
.Visible = False
End With
End Sub
'
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1.Visible = False
' На самом деле, эту строчку не помешает прописАть также в события MouseMove
' любых контролов, расположенных БЛИЗКО к контролу List1.
End Sub
'
Private Sub List1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call ShowToolTip
' Делай этот вызов не только отсюда (по движению мыши), но и сразу после кода,
' меняющего содержимое листбокса - этим ты устранишь твою проблему с
' переключением вкладок табстрипа.
End Sub
'
Sub ShowToolTip()
Dim tPOINT As POINTAPI
Dim iIndex As Long, retVal As Long, rct As RECT

On Error GoTo ErrorHandler
Call GetCursorPos(tPOINT)
Call ScreenToClient(List1.hwnd, tPOINT)
iIndex = SendMessage(List1.hwnd, LB_ITEMFROMPOINT, 0&, ByVal ((tPOINT.X And &HFF) Or (&H10000 * (tPOINT.Y And &HFF))))
If iIndex >= 0 Then
Label1.Caption = List1.List(iIndex) ' << после этого ширина Label1 автоматически подстроилась под ширину текста
If Label1.Width < List1.Width Then
' нет смысла показывать тултип для 'короткой' строчки - выходим:
Picture1.Visible = False
Exit Sub
End If
iIndex = iIndex And &HFF
retVal = SendMessage(List1.hwnd, LB_GETITEMRECT, iIndex, ByVal rct)
tPOINT.X = rct.Left
tPOINT.Y = rct.Top
Call ClientToScreen(List1.hwnd, tPOINT)
Call ScreenToClient(Me.hwnd, tPOINT)
With Picture1
.Left = (tPOINT.X + 1) * Sc

Кстати, вместо строчки
лучше написАть:
где '70' - подобранная опытным путём поправка.
Установи 'короткую' строчку в 'asdfg656589' вместо 'asdfg' - и ты поймёшь, о чём я.

Можно еще поковыряться с другими элементами...MSFlexGrid недавно смотрел.. у него куча всяких интересных свойств... можно из него чтото подобное списку сделать.

Поторопился: этот код 'тултип' показывает, а вот щёлкать 'сквозь' него по строке листбокса - не даёт. Чтобы это поправить, перенеси объявление 'iIndex As Long' в раздел 'Declarations' формы (т.е. 'наверх'), и добавь в код формы следующий фрагмент:

хех..а самое простое..ИМХО, если есть проблема(т.е. поглядеть полную строку в списке как я понял) ее нужно решать в первую очередь.. тоесть обрабатывать стандартными событиями, а выбор из списка передать например даблклик мышке и Ентер клаве. И время экономится и голову ломать не надо. Я просто не знаю всю задачу... Вы кинте ссылку на предидущий топик.

2Сумрак: ты совсем не въехал в проблему )

во-во... я и попросил ссылку на предыдущий топик.. как я понял..это продолжение было Ж-)))

В этом же форуме, чуть ниже, от того же автора.

хех.. правильно понял.. нужно помотреть что за текст в не поместившейся строчке из списка... хех.. тока для кого это надо для себя или юзера. если для юзера.. то как я и говорил событие клик отдать на вывод строки какомунить элементу (статусбар или его замену) или lst.Toltiptext=lst.text и 2клик - обработка процедуры выбора. Результат достигнут.. мы видим что там...ИМХО.. Я непойму зачем усложнять? :-)

Сумрак прав! Зачем усложнять? А еще можно, если в ListView, то свойство labeledit в lvmanuаl поставить и тогда при повторном нажатии можно весь текст пролистать, а при выходе обрабатывать событие After_Label_edit и отменять любые изменения внесенные в поле.

0

Ребят, вы чё тупите?! )
Человеку нужен был ТУЛТИП или его 'аналог' - чтобы слишком длинные строчки читались уже при простом ДВИЖЕНИИ мыши над строчками, а не только по щелчку! И к тому же - чтобы он был похож на таковой, реализованный в некоторых Windows-интерфейсах, когда 'тултип' ложится ровнёхонько поверх длинной строчки. Как говорится, 'почувствуйте разницу'.

А приведённый выше код сложным ну никак не назовёшь!

хех..тут я стобой согласен... раз нужен так нужен... просто я альтернативу предложил... :-)