Search Tools Links Login

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

Posted: 2002-06-01
By: ArchiveBot
Viewed: 145

Filed Under:

Visual Basic 6

No attachments for this post

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:

Original Author: SeeD


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:


'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.Top = (Screen.Height - Height) / 2
  Form1.Left = (Screen.Width - Width) / 2
  Form1.Timer1.Enabled = False
End Sub

Comments on this post

No comments have been added for this post.

You must be logged in to make a comment.