Scroll a form

[cedx]

Hi,

I have a MDI child form that is larger than it's parent form. To compensate, VB added a vertical scroll bar to it.

My problem now is, how do I avoid using the mouse to move the scroll bar and use the keyboard instead (PgUp and PgDown)?

If I detect the page up and down keys, what do I have to move?

Thanks in advance.

[MartinLiss]

Here is a routine that you can put in your MDI Child's Form_KeyDown event (assuming the child's KeyPreview property is set to True).

    Dim nOnePage As Integer
    
    nOnePage = 500
    
    Select Case KeyCode
        Case vbKeyPageDown
            If Form1.Top - nOnePage <= MDIForm1.ScaleHeight - Form1.Height Then
                Form1.Top = -(Form1.Height - MDIForm1.ScaleHeight)
            Else
                Form1.Top = Form1.Top + -nOnePage
            End If
        Case vbKeyPageUp
            If Form1.Top + nOnePage >= 0 Then
                Form1.Top = 0
            Else
                Form1.Top = Form1.Top + nOnePage
            End If
    End Select

Change the size of nOnePage to however much you want to scroll the form on one key press. The problem with this routine is that it does not affect the scroll bar that VB added to the child form. If you know how to do that, please E-mail me.

Rather than scrolling the whole form, here is a different approach. Adjust the child form's height so that it just fits its parent's window. Then on the child form add a picture control, place another picture control inside that one and then place all controls inside that second picture and add a scrollbar on the child form. You can then scroll the picture up and down via the scrollbar (or PageUp and PageDown). If you are interested in this second approach, let me know and I'll send you a demo project.

------------------
Marty
COGITO EGGO SUM
I think; therefore I am a waffle.