Is there a event that is triggered when you use the scroll arrows on a
listbox? I tried most of them and they do not seem to happen when I
click on the scroll arrows and it displays a new item in the list. Here
is the list I have tried and did not get the message box to pop up when
I scrolled up and down.

Thanks
Scott

Private Sub ListBox1_AfterUpdate()
MsgBox "Afterupdate"
End Sub

Private Sub ListBox1_BeforeDropOrPaste(ByVal Cancel As
MSForms.ReturnBoolean, ByVal Action As MSForms.fmAction, ByVal Data As
MSForms.DataObject, ByVal X As Single, ByVal Y As Single, ByVal Effect
As MSForms.ReturnEffect, ByVal Shift As Integer)
MsgBox "BeforeDropOrPaste"
End Sub

Private Sub ListBox1_Change()
MsgBox "Change"
End Sub

Private Sub ListBox1_Click()
MsgBox "Click"
End Sub

Private Sub ListBox1_Enter()
MsgBox "Enter"
End Sub

Private Sub ListBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger,
ByVal Shift As Integer)
MsgBox "KeyDown"
End Sub

Private Sub ListBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
MsgBox "KeyPress"
End Sub

Private Sub ListBox1_MouseDown(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
MsgBox "MouseDown"
End Sub

No event associated with scrolling a listbox.



--
Regards,
Tom Ogilvy



"Riddler" wrote:

Is there a event that is triggered when you use the scroll arrows on a
listbox? I tried most of them and they do not seem to happen when I
click on the scroll arrows and it displays a new item in the list. Here
is the list I have tried and did not get the message box to pop up when
I scrolled up and down.

Thanks
Scott

Private Sub ListBox1_AfterUpdate()
MsgBox "Afterupdate"
End Sub

Private Sub ListBox1_BeforeDropOrPaste(ByVal Cancel As
MSForms.ReturnBoolean, ByVal Action As MSForms.fmAction, ByVal Data As
MSForms.DataObject, ByVal X As Single, ByVal Y As Single, ByVal Effect
As MSForms.ReturnEffect, ByVal Shift As Integer)
MsgBox "BeforeDropOrPaste"
End Sub

Private Sub ListBox1_Change()
MsgBox "Change"
End Sub

Private Sub ListBox1_Click()
MsgBox "Click"
End Sub

Private Sub ListBox1_Enter()
MsgBox "Enter"
End Sub

Private Sub ListBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger,
ByVal Shift As Integer)
MsgBox "KeyDown"
End Sub

Private Sub ListBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
MsgBox "KeyPress"
End Sub

Private Sub ListBox1_MouseDown(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
MsgBox "MouseDown"
End Sub

So in order to get something else to happen based upon what is shown in
the listbox the user will have to at least select what is shown or have
some other button to run some code based on the current selection?

It no big problem to add something extra just a little more code.

Thanks for the reply, Tom.

Scott