Привет Всем! У меня к Вам вопрос. Возможно ли сделать чтобы при наведении на листбокс курсора, строчка листбокса расположенная под курсором подсвечивалась (выделилась), а при движении курсора по полю листбокса (вверх-вниз) подсветка (выделение) перемещалась за ним?
Привет Всем! У меня к Вам вопрос. Возможно ли сделать чтобы при наведении на листбокс курсора, строчка листбокса расположенная под курсором подсвечивалась (выделилась), а при движении курсора по полю листбокса (вверх-вниз) подсветка (выделение) перемещалась за ним?damask_86ru
Private Sub ListBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Dim lIndex As Long lIndex = Y / 12 If lIndex >= 0 And lIndex < ListBox1.ListCount Then ListBox1.ListIndex = lIndex End Sub
[/vba] Только никак не получается правильно определить высоту шрифта, поэтому, методом научного тыка вычислила, что она равна 12. )
damask_86ru, можно, например так:[vba]
Код
Private Sub ListBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Dim lIndex As Long lIndex = Y / 12 If lIndex >= 0 And lIndex < ListBox1.ListCount Then ListBox1.ListIndex = lIndex End Sub
[/vba] Только никак не получается правильно определить высоту шрифта, поэтому, методом научного тыка вычислила, что она равна 12. )Manyasha
Апну тему. На маленьких листбоксах такой подход работает, но если появляется скролинг, то уже ничего не получается. По хорошему при скроллинге надо сбрасывать положение на первый элемент, но события такого не вижу
Апну тему. На маленьких листбоксах такой подход работает, но если появляется скролинг, то уже ничего не получается. По хорошему при скроллинге надо сбрасывать положение на первый элемент, но события такого не вижуrlobasenko