Wheel Scrolling a list box

[Ed]

I have a listbox on a UserForm. The number of entries which I have assigned
to display in the listbox far exceeds the couple of inches of display area.
Scroll bars appear at the right edge of the screen so that I can move up and
down all list entries. Currently, I use the mouse and the left button to
scroll up and down the entries. I would like to be able to use the scroll
wheel within the text box to accomplish the scrolling. Is there a setting
that I am missing that enables the scroll wheel to function within a
TextBox?

Thanks,

Ed

 

[Jonathan West]

Hi Ed,

No, you haven't missed anything. The object & event model for UserForms and
their controls has not been updated since Office 2000 and predates the
introduction of wheel mice.

 

[zamdrist]

They don't work for me either. It's my opinion and best guess that Word
form list boxes just don't support it.

 

[Helmut Weber]

Hi Ed,

maybe a small spinbutton right of the listbox
would comfort you, like this:


Private Sub SpinButton1_SpinDown()
With ListBox1
If .ListIndex < .ListCount - 1 Then
.ListIndex = .ListIndex + 1
End If
End With
End Sub

Private Sub SpinButton1_SpinUp()
With ListBox1
If .ListIndex > 0 Then
.ListIndex = .ListIndex - 1
End If
End With
End Sub

--
Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de"