Zelaron Gaming Forum - Screen Wipe

Zelaron Gaming Forum (http://zelaron.com/forum/index.php)

- Opinion and Debate (http://zelaron.com/forum/forumdisplay.php?f=332)

- - Screen Wipe (http://zelaron.com/forum/showthread.php?t=18881)

DellDo

2003-06-28 11:38 AM

Screen Wipe

Code:

Sub WipeRight (Lt%, Tp%, frm As Form)

    Dim s, Wx, Hx, i

    s = 90 'number of steps To use In the wipe

    Wx = frm.Width / s 'size of vertical steps

    Hx = frm.Height / s 'size of horizontal steps

    ' top and left are static 

    ' while the width gradually shrinks





    For i = 1 To s - 1

        frm.Move Lt, Tp, frm.Width - Wx

    Next

End Sub

Call the routine from a command button by using this code: 

L = Me.Left

T = Me.Top

WipeRight L, T, Me

:killgrin:

Xenn	2003-06-28 11:39 AM

Oh thank Netscape I'm saved!

h4xx0rz0wnj00

2003-06-28 11:46 AM

Aw dave you moron!

6InchBluePony

2003-06-28 11:57 AM

You idiot, get off the forum if you don't know how to use it!

uncapped

2003-06-28 12:06 PM

What is this?

!King_Amazon!

2003-06-28 06:54 PM

Looks like someone tried to do something but he's a dumbass and can't.

6inchpurplepony

2003-06-29 08:52 PM

save it for the flaming forums

All times are GMT -6. The time now is 06:26 AM.