| |
|
|
| Submitted on: 6/6/1997
By: VB Pro
Level: Not Given
User Rating:
By 107 Users
Compatibility:VB 4.0 (16-bit), VB 4.0 (32-bit), VB 5.0, VB 6.0
Users have accessed this code 21367 times.
| |
| | | 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
| | | | | code:
Can't Copy and Paste this?
Click here for a copy-and-paste friendly version of this code!
Terms of Agreement:
By using this code, you agree to the following terms...
1) You may use
this code in your own programs (and may compile it into a program and distribute it in compiled format for languages that allow it) freely and with no charge.
2) You MAY NOT redistribute this code (for example to a web site) without written permission from the original author. Failure to do so is a violation of copyright laws.
3) You may link to this code from another website, but ONLY if it is not wrapped in a frame.
4) You will abide by any additional copyright restrictions which the author may have placed in the code or code's description. |
'**************************************
' Name: Cool screen wipes
' Description:You can achieve some cool
' form wipes with judicious use of the Mov
' e method. For example, to draw a curtain
' from right to left use this routine. It
' is also possible to wipe a form from bot
' tom to top, and from both sides to the m
' iddle, using similar routines
' By: VB Pro
'
'This code is copyrighted and has' limited warranties.Please see http://w
' ww.Planet-Source-Code.com/vb/scripts/Sho
' wCode.asp?txtCodeId=126&lngWId;=1'for details.'**************************************
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 | |
Other 46 submission(s) by this author
| | | | | Report Bad Submission | | | | | Your Vote! | |
See Voting Log | | | | Other User Comments | 5/11/1999 7:42:00 AM:Venu Gopal
Well, it didn't work exactly as it is,
But while using,it worked when i put
directly Me.Left and Me.Top in place of
using thru variables.
| 6/28/1999 11:10:00 AM:MiCRo
Ok, Use That Code Above... But In The
Command Button... Call This!
Call
WipeRight(Me.Left, Me.Top, Me)
| 8/14/2002 10:28:57 PM:eugene
the background doesn't get repaint when
the window shrink. how to repaint the
backgroup?
| | | Add Your Feedback! | Note:Not only will your feedback be posted, but an email will be sent to the code's author in your name.
NOTICE: The author of this code has been kind enough to share it with you. If you have a criticism, please state it politely or it will be deleted.
For feedback not related to this particular code, please click here.
| |
|
