*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.

Original Author: Jono Spiro

Inputs

'Screenwipe form to wipe, speed
'example: screenwipe form1,100

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

About this post

Posted: 2002-06-01
By: ArchiveBot
Viewed: 109 times

Categories

Visual Basic 6

Attachments

No attachments for this post

Comments

No comments have been added for this post.

You must be logged in to make a comment.