*Improved* GoAway Screen Wipe
I just quickly improved this screen wipe function written by Jesse Foster. It runs a bit smoother and is usable as a function for any form. Just drop it into a module. Also, I made it work so that it is 'public' not private.
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
Public Function screenWipe(Form As Form, CutSpeed As Integer) As Boolean Dim OldWidth As Integer Dim OldHeight As Integer Form.WindowState = 0 If CutSpeed <= 0 Then MsgBox "You cannot use 0 as a speed value" Exit Function End If Do OldWidth = Form.Width Form.Width = Form.Width - CutSpeed DoEvents If Form.Width <> OldWidth Then Form.Left = Form.Left + CutSpeed / 2 DoEvents End If OldHeight = Form.Height Form.Height = Form.Height - CutSpeed DoEvents If Form.Height <> OldHeight Then Form.Top = Form.Top + CutSpeed / 2 DoEvents End If Loop While Form.Width <> OldWidth Or Form.Height <> OldHeight Unload Form End Function
Original Comments (3)
Recovered from Wayback Machine