Cool screen wipes
You can achieve some cool form wipes with judicious use of the Move method. For example, to draw a curtain from right to left use this routine. It is also possible to wipe a form from bottom to top, and from both sides to the middle, using similar routines
AI
AI Summary: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
Source 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
Original Comments (3)
Recovered from Wayback Machine