Quick Search for:  in language:    
achieve,some,cool,form,wipes,with,judicious,M
   Code/Articles » |  Newest/Best » |  Community » |  Jobs » |  Other » |  Goto » | 
CategoriesSearch Newest CodeCoding ContestCode of the DayAsk A ProJobsUpload
Visual Basic Stats

 Code: 3,011,557. lines
 Jobs: 117. postings

 How to support the site

 
Sponsored by:

 

You are in:

 
Login



Latest Code Ticker for Visual Basic.
Fractional Addition
By SAEED HASSAN on 7/1


Defrag at certain time
By Michael Nipper on 7/1


Click here to see a screenshot of this code!Extended Find Ver 2
By Roger Gilchrist on 7/1

(Screen Shot)

Y! Module
By NightCrawler on 7/1


Files Comperator (the right way)
By Jarry Claessen on 6/30


Simple UDP example
By Mick Walton on 6/30


CAPS Trigger
By Trevor Burley on 6/30


Auto clip picture
By Kenneth. Jakobsen on 6/30


Click here to see a screenshot of this code!Game of life clone (cool math)
By Johannes B on 6/30

(Screen Shot)

Click here to put this ticker on your site!


Add this ticker to your desktop!


Daily Code Email
To join the 'Code of the Day' Mailing List click here!





Affiliate Sites



 
 
   

Cool screen wipes

Print
Email
 

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
Use this form to notify us if this entry should be deleted (i.e contains no code, is a virus, etc.).
Reason:
 
Your Vote!

What do you think of this code(in the Not Given category)?
(The code with your highest vote will win this month's coding contest!)
Excellent  Good  Average  Below Average  Poor 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.
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
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)
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
8/14/2002 10:28:57 PM:eugene
the background doesn't get repaint when 
the window shrink. how to repaint the 
backgroup?
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

 
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.
 
Name:
Comment:

 

Categories | Articles and Tutorials | Advanced Search | Recommended Reading | Upload | Newest Code | Code of the Month | Code of the Day | All Time Hall of Fame | Coding Contest | Search for a job | Post a Job | Ask a Pro Discussion Forum | Live Chat | Feedback | Customize | Visual Basic Home | Site Home | Other Sites | About the Site | Feedback | Link to the Site | Awards | Advertising | Privacy

Copyright© 1997 by Exhedra Solutions, Inc. All Rights Reserved.  By using this site you agree to its Terms and Conditions.  Planet Source Code (tm) and the phrase "Dream It. Code It" (tm) are trademarks of Exhedra Solutions, Inc.