Important alert: (current site time 7/16/2013 1:37:00 AM EDT)
 

VB icon

!!!!***Cool Roll***!!!!

Email
Submitted on: 8/11/1999
By: SeeD  
Level: Not Given
User Rating: By 25 Users
Compatibility: VB 3.0, VB 4.0 (16-bit), VB 4.0 (32-bit), VB 5.0, VB 6.0
Views: 75645
(About the author)
 
     This is a really cool effect that you can add to make it so that when you click a minimize button, the form slides off the screen and a little mini form appears in the bottom left hand corner. When you click this mini forms title bar, the form appears again. A Very cool effect that I just figured out. (o:
 
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 Roll***!!!!
' Description:This is a really cool effect that you can add to make it so that when you click a minimize button, the form slides off the screen and a little mini form appears in the bottom left hand corner. When you click this mini forms title bar, the form appears again. A Very cool effect that I just figured out. (o:
' By: SeeD
'
' Inputs:Follow these instructions.
1) Start up a new project in your VB.
2) Add a new form. (Form2)
3) Add a timer to Form 1 and set it's interval to 1 by pressing F4 to access the properties.
4) Make Form 1's Border Style "0 - None" and make Form 2's Border Style"3 - Fixed Dialog". 
5) Add a Label to Form 1. (Label1) Make it's caption "_" (For Minimize)
6) Make Form2's Property "ControlBox = False".
7) Make Form2's Property "Movable = False".
8) And MOST IMPORTANTLY, make Form2's Property "WindowState = "Minimized"
9) That's all, but remember to MINIMIZE YOUR VB WHEN RUNNING THIS CODE. Thanks. (o:
'
'This code is copyrighted and has' limited warranties.Please see http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=2929&lngWId=1'for details.'**************************************

'Put this in Form1's General Declarations.
Private Sub Label1_Click()
Timer1.Enabled = True
Form2.Visible = True
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
Form1.Top = Form1.Top + 60 'You can adjust the 60 to whatever you prefer. Highering it will make the form drop faster. (o:
Form2.Enabled = True
End Sub
'Put this in Form2's General Declarations. (o:
Private Sub Form_Activate()
Form1.Show
Form2.Hide
Form1.Top = (Screen.Height - Height) / 2
Form1.Left = (Screen.Width - Width) / 2
Form1.Timer1.Enabled = False
End Sub


Other 32 submission(s) by this author

 


Report Bad Submission
Use this form to tell us if this entry should be deleted (i.e contains no code, is a virus, etc.).
This submission should be removed because:

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

11/5/1999 7:04:00 AMRapcd27

this code is tight, and im only a 11 year old beginner with a sweet program made already with dis, thanx! Email me as rapcd27@aol.com
(If this comment was disrespectful, please report it.)

 
12/10/1999 10:50:00 AMpillsverry

Kool i`ve been looking for this code for a long time now i will show my friend my prog! thanx for the code!
(If this comment was disrespectful, please report it.)

 
5/23/2000 8:22:02 AMThe_Scorpion

Aheeem, what could I use this 4?
(If this comment was disrespectful, please report it.)

 
5/23/2000 3:50:52 PMRitesh

Come on man, nothing in code,and why you needed timer to do this, coudlnt' understand.
(If this comment was disrespectful, please report it.)

 
5/23/2000 3:52:24 PMRitesh Ahya

There is nothing in the code, and why you have put timer, couldn't undersand.
not a worth code.
(If this comment was disrespectful, please report it.)

 
5/10/2002 12:38:24 AMRobert Aguilar

sub Label1_click()
form1.windowstate = 1
end sub
(If this comment was disrespectful, please report it.)

 
6/13/2002 5:45:13 AMvbhelpmaster

does not really work.

(If this comment was disrespectful, please report it.)

 
7/26/2002 12:00:28 PMJAIDEEPSAINI

COOL FEATURE TO MAKE USER INTERFACE DISTINCT
(If this comment was disrespectful, please report it.)

 
9/16/2002 6:39:07 PM

this aint cool, its just something that people hate in a program it wastes time
(If this comment was disrespectful, please report it.)

 
2/28/2003 7:58:46 AM

dfsfs
(If this comment was disrespectful, please report it.)

 
4/14/2003 12:48:40 AM

good codes and project. pls send me in my email. thanks..
(If this comment was disrespectful, please report it.)

 
4/20/2003 3:36:27 AM

good codes and project. pls send me in
my email. thanks..

(If this comment was disrespectful, please report it.)

 
5/11/2003 1:21:46 AM

Fantastic!!!!!
(If this comment was disrespectful, please report it.)

 
8/19/2003 8:35:22 PM

Send good codes and project as presently Iam doing a project and need some help
(If this comment was disrespectful, please report it.)

 
8/20/2003 2:31:42 PMJeroen van de Ven

its better to use zip files when you need labels or timers in a form
(If this comment was disrespectful, please report it.)

 
9/8/2003 2:40:19 AMAchindra Bhatnagar

You must look towards windows API, thats fast and does exactly the same to create such effects.
Anyways for beginners it would b a great help to develop concept.
Keep moving, Future Might b yours !!!
(If this comment was disrespectful, please report it.)

 
2/14/2004 7:33:09 AM

don't tab out your code so much and this doesn't work in it's raw form on XP
(If this comment was disrespectful, please report it.)

 
3/3/2004 2:48:44 AM

i really need find function (vb6.0
(If this comment was disrespectful, please report it.)

 
4/21/2004 2:20:51 AM

Hi all i want to ask how if i want to make a prg that can monitor other prg that already running ? so if this prg stop, it will automatically start with the prg that i make.....so i need a refreshment on this case
(If this comment was disrespectful, please report it.)

 
8/14/2004 11:58:59 PM

This program taught me something cool and for that I give you 5 globes.
(If this comment was disrespectful, please report it.)

 
4/21/2005 2:31:12 PM

hi this is wayez from hyd ,its a brilliant code for making application attractive , good n many thnx
(If this comment was disrespectful, please report it.)

 
4/21/2005 2:33:08 PM

hi this is cool code , i had it to make my application colorful, so thnx for it
s wayez
hyd
(If this comment was disrespectful, please report it.)

 
5/15/2005 8:09:23 AMMadley

I would never post this small and easy code on psc, but hey who am i to judge that. Please remove the tabs and spaces from your code.
(If this comment was disrespectful, please report it.)

 
10/4/2005 12:23:36 AMDaniel Harris

Try to upload something more useful next time.
(If this comment was disrespectful, please report it.)

 
11/17/2005 10:16:05 PM

Given that this was posted in 1999, I won't criticize it too much. However, in all actuallaity, it doesn't do much of anything usefull.
(If this comment was disrespectful, please report it.)

 
12/28/2005 3:03:26 AMRajan

good
(If this comment was disrespectful, please report it.)

 
8/2/2006 12:05:23 AM

DFHFGJ
(If this comment was disrespectful, please report it.)

 
2/1/2007 5:27:52 AMAziz

not bad
(If this comment was disrespectful, please report it.)

 
2/7/2007 8:59:00 PMJ

thats cool... =P
(If this comment was disrespectful, please report it.)

 
3/6/2007 12:36:30 PMSuper_pro

Thanks
(If this comment was disrespectful, please report it.)

 
3/11/2007 7:46:42 AMpriti

The good project. Please send it to my Email - ID
(If this comment was disrespectful, please report it.)

 
3/25/2007 11:46:21 AMElmer Cheng

cool......
(If this comment was disrespectful, please report it.)

 
6/27/2008 12:56:01 AMmay

i'm luck for found!
thx
(If this comment was disrespectful, please report it.)

 
9/1/2008 4:08:33 AMgautam

thats cool man
(If this comment was disrespectful, please report it.)

 
5/6/2009 9:22:05 PM

your code is nice but thats only if your vb window is minimized that you'll appreciate the effects..
(If this comment was disrespectful, please report it.)

 
3/15/2010 3:05:38 AMrinkukp

i can make it thanks

(If this comment was disrespectful, please report it.)

 
3/17/2010 12:29:41 PMSamson Amatobi

I have Nothing To Say For Now
(If this comment was disrespectful, please report it.)

 

Add Your Feedback
Your feedback will be posted below and an email sent to the author. Please remember that the author was kind enough to share this with you, so any criticisms must be stated politely, or they will be deleted. (For feedback not related to this particular code, please click here instead.)
 

To post feedback, first please login.