Link to home
Start Free TrialLog in
Avatar of Valera_Ned
Valera_Ned

asked on

Scrolling a Frame in the form

How can I scroll verticall a frame in the form.
If my form contain a few frames .
For ,example :

-----------------------
Frame1
-----------------------
-----------------------
Frame2
-----------------------
-----------------------
Frame3
-----------------------
How can I scroll Frame3 up to the frame2 (and disapear)
Avatar of twalgrave
twalgrave

   Dim lTopPosition As Long
   
    For lTopPosition = Frame3.Top To Frame2.Top Step -1
        Frame3.Top = lTopPosition
        'Put sleep function here

    Next
   
    Frame3.Visible = False
Note:  You will probably want to put a sleep function in here so you can actually see it happen on a faster machine
ASKER CERTIFIED SOLUTION
Avatar of Deja-vu
Deja-vu

Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial
Valera, do you want scroll the frames with a Scroll Bar or use a visual efect to put a frame over the others?

I sugest to use Tab Dialogs instead the use of scrolling in the form, becouse is too much clean for the user.


Sorry by the grammatical error, I speak spanish. I can talk in English but like Tarzan. Corrections are welcome.
Good Luck.
Déjà-vu

Avatar of Valera_Ned

ASKER

to  twalgrave,
what does it mean to put a sleep function ?
to Deja-vu ,
it's  not working as I wanted it's moving on frame2 and clear it .
And I want that it will slowly disappear
Put this declaration in your code(general declarations):
Private Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)

Then call it like:
call Sleep(500) - sleeps for a half second