How to stop scrollbar from jumping to active frame

[bradyboyy88]

I have a userform with a frame (called Parent_Frame) that takes up the entire userform and the vertical scrollbar is activated. Inside this frame about halfway is 3 menu items each which active another frame underneath of them. Well all works well however right when I click on one of these inner frame's body the Parent_Frame scroll bar shoots down to the inner frames top. Is there anyway possible to stop this from automatically happening?

 

[bradyboyy88]

If anyone else is having this issue. Here is the solution:

Private Sub Parent_Frame_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 ActionY = fmScrollActionFocusRequest Then
        ActualDy.Value = 0
    End If
    
End Sub

 

[wist]

If anyone else is having this issue. Here is the solution:

Private Sub Parent_Frame_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 ActionY = fmScrollActionFocusRequest Then
        ActualDy.Value = 0
    End If
    
End Sub

Hi bradyboy88 ..this code works well thanks but not on listboxes, those still refocus...any idea why? Thansk

 

[bradyboyy88]

I am not sure but I am hoping someone might be able to help with this issue. It does this still to if you have a frame within a frame within a frame. The first frame is captured by the focus request but the next integrated frame does not trigger this request.

 

[bradyboyy88]

I am not sure but I am hoping someone might be able to help with this issue. It does this still to if you have a frame within a frame within a frame. The first frame is captured by the focus request but the next integrated frame does not trigger this request.

To make it more univseral you need to use this:

    If ActionY = fmScrollActionFocusRequest Or ActionY = fmScrollActionControlRequest Then
        ActualDy.value = 0
    End If