Scrolling a Form

[yenni]

I posted this question before and got some help, but there
is just one thing that's giving me a BIG problem, and that
is... the form will not scroll!!!
The problem is that data at the bottom is not scrolled into
view. How do i achieve this ?
I would prefer to display the data on a form and not a DBGrid

p.s. How do I post the code like others with colours &
indent ?

here is the code....

Sub Scroll()
Dim vPos As Integer
Me.Cls
FontSize = 8
x = CurrentX
y = CurrentY
CurrentX = 300
CurrentY = y
For vPos = m_intLastPos To 100
While Not rst.EOF
Print rst!recno
CurrentY = y
CurrentX = 1600
Print rst!ItemNum
CurrentY = y
CurrentX = 3100
Print Format(rst!QtyRecvd, "###,##0")
CurrentY = y
CurrentX = 4600
Print rst!Descrip
CurrentY = y
CurrentX = 8100
Print Format(rst!unitprice, "##,###,##0.00")
CurrentY = y
CurrentX = 9600
value = rst!QtyRecvd * rst!unitprice
runtot = runtot + value
Print Format(value, "##,###,##0.00")
y = CurrentY
CurrentX = 300
rst.MoveNext
Wend
Next
m_intLastPos = VScroll1.value
' print total at end of report
If runtot > 0 Then
FontBold = True
FontUnderline = True
CurrentX = 8100
CurrentY = CurrentY + 500
y = CurrentY
Print "GRAND TOTAL"
CurrentX = 9600
CurrentY = y
Print Format(runtot, "##,###,##0.00")
FontBold = False
FontUnderline = False
Else
NothingFound
End If
Else
NothingFound
End If
End Sub

Too scroll a Form, use the following code. Add an HScroll and a VScroll.

Dim VPos As Integer
Dim HPos As Integer

Private Sub Form_Load()
    'Change the following numbers to the Full height and width of your Form
    intFullHeight = 8000
    intFullWidth = 8000
    'This is the how much of your Form is displayed
    intDisplayHeight = Me.Height
    intDisplayWidth = Me.Width

    With VScroll1
        .Height = Me.ScaleHeight
        .Min = 0
        .Max = intFullHeight - intDisplayHeight
        .SmallChange = Screen.TwipsPerPixelX * 10
        .LargeChange = .SmallChange
    End With
    With HScroll1
        .Width = Me.ScaleWidth
        .Min = 0
        .Max = intFullWidth - intDisplayWidth
        .SmallChange = Screen.TwipsPerPixelX * 10
        .LargeChange = .SmallChange
    End With
End Sub

Sub ScrollForm(Direction As Byte)
    Dim CTL As Control
    
    'Scroll Vertically
    If Direction = 0 Then
        For Each CTL In Me.Controls
            'Make sure it's not a ScrollBar
            If Not (TypeOf CTL Is VScrollBar) And Not (TypeOf CTL Is HScrollBar) Then
                'If it's a Line then
                If TypeOf CTL Is Line Then
                    CTL.Y1 = CTL.Y1 + VPos - VScroll1.Value
                    CTL.Y2 = CTL.Y2 + VPos - VScroll1.Value
                Else
                    CTL.Top = CTL.Top + VPos - VScroll1.Value
                End If
            End If
        Next
        VPos = VScroll1.Value
    Else
        'Scroll Horizontally
        For Each CTL In Me.Controls
            'Make sure it's not a ScrollBar
            If Not (TypeOf CTL Is VScrollBar) And Not (TypeOf CTL Is HScrollBar) Then
                'If it's a Line then
                If TypeOf CTL Is Line Then
                    CTL.X1 = CTL.X1 + HPos - HScroll1.Value
                    CTL.X2 = CTL.X2 + HPos - HScroll1.Value
                Else
                    CTL.Left = CTL.Left + HPos - HScroll1.Value
                End If
            End If
        Next
        HPos = HScroll1.Value
    End If
End Sub

Private Sub HScroll1_Change()
    ScrollForm 1
End Sub

Private Sub HScroll1_Scroll()
    ScrollForm 1
End Sub

Private Sub VScroll1_Change()
    ScrollForm 0
End Sub

Private Sub VScroll1_Scroll()
    ScrollForm 0
End Sub

To make your code in colours, inclose it in code brackets.
[code]
MyCodeHere
[/code]

[yenni]

Thanks for your quick reply Megatron, but I already have
something similar to that....
This is what I have

[code]
Private Sub Form_Load()
frmPrtToScr.BackColor = &HFFFFFF
VScroll1.Max = 100
VScroll1.LargeChange = 5
VScroll1.SmallChange = 1
runtot = 0
If frmPrtOptions.optPrt.value = True Then
PrtReport
ElseIf frmPrtOptions.optScr.value = True Then
Call Scroll
End If
End Sub

Private Sub Form_Resize()
With VScroll1
.Top = 0
.Height = ScaleHeight
.Left = ScaleWidth - .Width
End With
End Sub

Private Sub VScroll1_Change()
Call Scroll
End Sub

Private Sub VScroll1_KeyUp(KeyCode As Integer, Shift As Integer)
Call Scroll
End Sub

Private Sub VScroll1_KeyDown(KeyCode As Integer, Shift As Integer)
Call Scroll
End Sub

Sub Scroll()
Dim vPos As Integer
Me.Cls
FontSize = 8
x = CurrentX
y = CurrentY
CurrentX = 300
CurrentY = y
rst.MoveFirst
If blank = False Then
For vPos = m_intLastPos To 100
While Not rst.EOF
Print rst!recno
CurrentY = y
CurrentX = 1600
Print rst!ItemNum
CurrentY = y
CurrentX = 3100
Print Format(rst!QtyRecvd, "###,##0")
CurrentY = y
CurrentX = 4600
Print rst!Descrip
CurrentY = y
CurrentX = 8100
Print Format(rst!unitprice, "##,###,##0.00")
CurrentY = y
CurrentX = 9600
value = rst!QtyRecvd * rst!unitprice
runtot = runtot + value
Print Format(value, "##,###,##0.00")
y = CurrentY
CurrentX = 300
rst.MoveNext
Wend
Next
'print report total
If runtot > 0 Then
FontBold = True
FontUnderline = True
CurrentX = 8100
CurrentY = CurrentY + 500
y = CurrentY
Print "GRAND TOTAL"
CurrentX = 9600
CurrentY = y
Print Format(runtot, "##,###,##0.00")
FontBold = False
FontUnderline = False
Else
NothingFound
End If
Else
NothingFound
End If
m_intLastPos = VScroll1.value
End Sub

[Edited by yenni on 11-15-2000 at 06:41 PM]

[Jareware]

Cant you just make everything you want to scroll in a frame, and then put to the scroll event of the scrollbar something like this:

frame1.top = 0 - vscroll1.value

When min of vscroll1 is 0 and max is the height of the frame.

Just a suggestion, may not work...



-JR-

[a2427]

So how do you post code so it looks correct in the forums?

[Jareware]

Have no idea!

-JR-

[yenni]

If I use a frame, will I be able to scroll the frame so the
text at the bottom will come into view?

[Jareware]

Okay, so you make a frame inside a form, that preferrably meets the width of the window and the height is however much you want to make of it. Then you put in your contents, and leave the frame to a height so that it holds all the controls ya have. Then you resize the form (not the frame) to whatever height you want it to be and add a scrollbar OUTSIDE the frame (on the form). You can put it anywhere, and it CAN be a vertical or a horizontal one, though in my example I would make a vertical one. Then you set the Min value of the scrollbar to 0 and in the Resize event of the form, put:

VScroll1.Max = Frame1.Height / 2

Then in the Change event of the scrollbar, put:

Frame1.Top = 0 - VScroll1.Value

That should do it and is pretty simple. Cool. This is like the first time in here when I'm not asking a question...


-JR-