ToolTipText на ListBox

[klop086]

Как сделать так чтобы при наводке указателя мышки на ListBox ToolTipText становился равным значению ячейки ListBox, на который
она наведена?

И ещё - как сделать так, что бы при правом щелчке(и при левом тоже)мыши выделялся элемент ListBox, на который она наведена?

[Samovar]

Изпользуй глобальный хук на Mouse. Кто-то на форуме въложил изходник. Но надеюсь будут идеи получше...

[Q2W]

Нахрена хуки? у нас есть положение курсора относительно левого верхнего угла листбокса.
Есть высота строки листбокса, значит есть и инфа о том, какой элемент нам нужен.

[SHURUP]

У нас есть положение курсора относительно левого верхнего угла листбокса.
Есть высота строки листбокса, значит есть и инфа о том, какой элемент нам нужен.

А как эту самую высоту строки листбокса найти

[tyomitch]

LB_ITEMFROMPOINT ?

А можно LB_GETITEMHEIGHT и руками искать.

[klop086]

Насщет положегния курсора я и сам догадался. Я хочу сделать так:
В событие List1_MouseMove передаётся координата Х и У. Так как Лист у меня прижат к верху формы всё становится очень просто: я же знаю размер шрифта и т.д. Методом простого вычитания я нахожу злощасный Итем.

Вот со вторым вопросом (про правую кнопку) мне чего-то вообще непонятно: Чего за Хук , да ещё и Глобальный, и с чем его едят.

Можно, впринципе сделать так же как и с первым вопросом, только в событиии Mouse_Down, но ето товарисчи Геморрой, нельзя ли чего попроще?

[SHURUP]

Можно, впринципе сделать так же как и с первым вопросом, только в событиии Mouse_Down, но ето товарисчи Геморрой, нельзя ли чего попроще?

Вообщето, никаго гимора здесь нет.
Рекомендую создать функцию, например:

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

Private Function GetListIndexFromCursor(y As Single)
    ' здесь пишешь код того способа, которым находишь индекс:
    ' как tyomitch писал (LB_ITEMFROMPOINT или LB_GETITEMHEIGHT)
    ' или так как ты указал(через свойство шрифта)
    ' 1-й Способ предпочтительнее
End Function


не забывай про List1.TopIndex если есть СкролБары.

Тогда второй вопрос:

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

Private Sub List1_MouseDown(Button As Integer, Shift As Integer, X As Single, y As Single)
    If Button = vbRightButton Then List1.ListIndex = GetListIndexFromCursor(y)
End Sub


И никакого гимора!
А хуки, думаю, тебе тоже не понравятся! Вот там-то - гимор!

[klop086]

Я уже сделал без LB_ITEMFROMPOINT, но все равно спасибо.