Make my form Scrollable

[Boumxyz2]

Is it possible to make your main form scrollable ? I want to insert a scrollbar on my form, but I can't figure out how to scroll.. I thought that a scrollbar would appear if you maximized your form and the form is too big for the window.. Doesn'T seem to act this way. I've been searching on this forum for this and it seems that it is not possible to do ?

I'm suspicious about this. Anyone can help me out ?

[jp140768]

On one of my screens, I have made it scrollable where the user reduces the size of the form below what it should be. This is how I did it.

I put a picture box on the form, and put all the controls within the picture box. I then put scroll bars outside the picture box ie to the right and below.

If the user reduces the screen below my threshold, then I enable the scroll bars eg:

    If Me.Width < picScreen.Width Then
        hsbScrollBar.Visible = True
        hsbScrollBar.Width = Me.Width - (vsbScrollBar.Width + 100)
        hsbScrollBar.Max = (picScreen.Width - Me.Width) + vsbScrollBar.Width
        hsbScrollBar.Top = Me.Height - hScrollbarPos
        hsbScrollBar.Enabled = True
    Else
        hsbScrollBar.Enabled = False
        hsbScrollBar.Visible = False
    End If

    If Me.Height < picScreen.Height Then
        vsbScrollBar.Left = Me.Width - vScrollbarPos
        vsbScrollBar.Max = (picScreen.Height - Me.Height) + hsbScrollBar.Height
        vsbScrollBar.Height = Me.Height - (hsbScrollBar.Height + 100)
        vsbScrollBar.Visible = True
        vsbScrollBar.Enabled = True
        hsbScrollBar.Top = Me.Height - hScrollbarPos
    Else
        vsbScrollBar.Enabled = False
        vsbScrollBar.Visible = False
    End If

The scroll bars then have the following code:

Private Sub vsbScrollBar_Change()

    Dim nPos As Integer
    
    nPos = Me.Height - vsbScrollBar
    nPos = Me.Height - nPos

    picScreen.Top = nPos * -1
    
End Sub

Private Sub hsbScrollBar_Change()

    Dim nPos As Integer
    
    nPos = Me.Width - hsbScrollBar
    nPos = Me.Width - nPos
    
    picScreen.Left = nPos * -1
    
End Sub

picScreen is the name of the picture box.

Does this help?

[Cyrus]

I've used ur sample codes its wonderful, only can u expand it to, when I click the arrows (up or down) the display scroll very slowy how i can change the speed of scrolling.

thanks

[jp140768]

Sorry, forgot to mention the values that you set for the properties of the scroll bars.

I have set the small change property to 50, and the large value to 100.

This will effect how often the change event is fired I believe - its a long time since I put this code in.

Try changing the small and large change properties and see if this works for you.

[John G Duffy]

I found a article in ELementKJournals that shows that the Form has its own scrollbars. It is relatively simple and you can scroll the form without the use of Pictureboxes. The only restriction is that controls without hwnds will disappear when scrolled off the viewport. To circumvent this put them, or everything in a picturebox,
Check out the attached .ZIP file

[Clearcode]

Using the EventVB.dll release H is is fairly simple to make a form scrollable:

Option Explicit

Dim WithEvents vbLink As EventVB.APIFunctions
Dim WithEvents vbWnd As EventVB.ApiWindow

Private Sub Form_Load()

Set vbLink = New APIFunctions

Set vbWnd = New ApiWindow

With vbWnd
    .hWnd = Me.hWnd
    .ScrollBars = vbBoth
    .AutoScroll = True
End With

vbLink.SubclassedWindows.Add vbWnd

End Sub

Set the form's ClipControls member to false for best effect.

HTH,
Duncan

[Clearcode]

Further to the above - the DLL is an ActiveX dll so you need to add it to your project references before you can use it.

To do this select the menu Project :: References
In ther resulting dialog box press "Browse"
Find the file EventVB_H.dll and double clikc it.

Then in your references list it will appear as:

[x] MCL EventVB Release H

[shprog]

I could not locate the EventVB_H.dll....can u please help

[John G Duffy]

The EventVB_H.dll appears to be a >NET addition. It is not on my system either. For VB6, download my sample program and enjoy.

[Clearcode]

The EventVB_H.dll is wrtitten in VB6.0 - and the code for ther most recent version is attached to this thread

(I would put it here as well, but at 215kb it is too big - the limit is 100k)