How to tell if a frame scrollbar has reached the bottom

[bradyboyy88]

Hi,

I want to add an event to my frame so that when the scroll reaches the bottom it triggers a event. However, I cant seem to figure out a way to tell if it hit the bottom. My code below doesnt work for either method:

Private Sub Frame1_Scroll(ByVal ActionX As MSForms.fmScrollAction, ByVal ActionY As MSForms.fmScrollAction, ByVal RequestDx As Single, ByVal RequestDy As Single, ByVal ActualDx As MSForms.ReturnSingle, ByVal ActualDy As MSForms.ReturnSingle)

If Frame1.ScrollHeight = Frame1.ScrollTop Then MsgBox "bottom"
If ActionX = fmScrollActionEnd Then MsgBox "bottom"

End Sub

 

[sijpie]

this will kind of do it. But you will have to fiddle around as to not get repeat ( i tried to achieve that with the flag)
It also does not seem to work if you drag the scroll bar, only if you use the down botton

Dim mbHitBottom As Boolean

Private Sub Frame1_Scroll(ByVal ActionX As MSForms.fmScrollAction, ByVal ActionY As MSForms.fmScrollAction, ByVal RequestDx As Single, ByVal RequestDy As Single, ByVal ActualDx As MSForms.ReturnSingle, ByVal ActualDy As MSForms.ReturnSingle)
    
    With Frame1
        If .ScrollHeight <= .InsideHeight + .ScrollTop + 2 And mbHitBottom = False Then
            MsgBox "bottom"
            mbHitBottom = True
        Else
            mbHitBottom = False
        End If
    End With
End Sub