Вертикальный скроллинг по ListBox

[Kveldulv]

У меня есть listbox, с заполненными данными. Но при прокрутке колесика мышки скроллинг не происходит. Посдкажите, можно ли его как-то реализовать?

[alex77755]

Скорей всего нет.
Используйте вместо текстбокса другой контрол(более современный), например Листвиев

[Kveldulv]

Сообщение от alex77755

Скорей всего нет.
Используйте вместо текстбокса другой контрол(более современный), например Листвиев

Ясно. Спасибо за инфу.

[Aent]

Скроллинг в VBA UserForm ListBoxс помощью колёсика мыши это не проблема. Нужно использовать субклассинг для событий мыши.
Cм. пример.

[Kveldulv]

Сообщение от Aent

Скроллинг в VBA UserForm ListBoxс помощью колёсика мыши это не проблема. Нужно использовать субклассинг для событий мыши.

Большое спасибо! Разобрался, все получилсь.

[novak_26]

Сообщение от Aent

Скроллинг в VBA UserForm ListBoxс помощью колёсика мыши это не проблема. Нужно использовать субклассинг для событий мыши.
Cм. пример.

Можно вопрос? Где в коде (модуль, строка) прописывается, то, что в прокрутке показываются числа от 1 до 25 ?

[Aent]

novak_26, В коде модуля формы обработчик события активации формы:

Private Sub UserForm_Activate()
' ...
    With Me.ListBox1
        For i = 1 To 25
            .AddItem Str(i) 'добавляем элемент в список
        Next i
    End With
'...