Code Snippets

VB.NET Source Code

Welcome to Dream.In.Code
	Become a VB.NET Expert! Join 340,049 VB.NET Programmers for FREE! Get instant access to thousands of VB.NET experts, tutorials, code snippets, and more! There are 4,514 people online right now. Registration is fast and FREE... Join Now! Chat LIVE With a VB.NET Expert

Fade the form in on MouseEnter and Fade out on MouseLeave

Insipired from the popular Paint .NET Graphics tool.

Submitted By: RodgerB

Actions:

Rating:

Views: 3,436

Language: VB.NET

Last Modified: January 1, 1970

Instructions: 1) Copy and Paste this code into your Form's Class.

2) Adjust the code to your likings. (Use other forms, etc).

Snippet

Private Const fadeSpeed As Integer = 10 ' Controls the fade speed (Milliseconds for every change of opacity)
Dim WithEvents tmrFade As New Timer() ' Our timer control.
Dim fadeDirection As Boolean = False ' Boolean value of whether we want to fade up or down.
''' <summary>
''' Timer used to fade the form.
''' </summary>
''' <remarks>
''' fadeDirection is used to determine whether the timer should be incrementing or decrementing
''' the Opacity of the Form.
''' </remarks>
Private Sub tmrFade_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles tmrFade.Tick
If fadeDirection Then ' If we are incrementing the opacity
If Me.Opacity <= 1.0 Then ' If the opacity is less than 100%
Me.Opacity += 0.01 ' Increment Opacity by 1%
Exit Sub ' Exit the Subroutine to avoid Disabling the Timer.
End If
Else ' If we are decrementing the opacity
If Me.Opacity >= 0.5 Then ' If the opacity is more than 50%
Me.Opacity -= 0.01 ' Decrement Opacity by 1%
Exit Sub ' Exit the Subroutine to avoid Disabling the Timer.
End If
End If
' Disable the timer as it doesn't fit into any of the conditions above.
tmrFade.Enabled = False
End Sub
Private Sub Form1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MouseEnter
' Tell the timer, that we want to fade up.
fadeDirection = True
' Initialise the timer.
tmrFade.Interval = fadeSpeed
tmrFade.Enabled = True
End Sub
Private Sub Form1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MouseLeave
' Tell the timer, that we want to fade down.
fadeDirection = False
' Initialise the timer
tmrFade.Interval = fadeSpeed
tmrFade.Enabled = True
End Sub

Copy & Paste

Private Const fadeSpeed As Integer = 10 ' Controls the fade speed (Milliseconds for every change of opacity)
Dim WithEvents tmrFade As New Timer() ' Our timer control.
Dim fadeDirection As Boolean = False ' Boolean value of whether we want to fade up or down.

''' <summary>
''' Timer used to fade the form.
''' </summary>
''' <remarks>
''' fadeDirection is used to determine whether the timer should be incrementing or decrementing
''' the Opacity of the Form.
''' </remarks>
Private Sub tmrFade_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles tmrFade.Tick
    If fadeDirection Then ' If we are incrementing the opacity
        If Me.Opacity <= 1.0 Then ' If the opacity is less than 100%
           Me.Opacity += 0.01 ' Increment Opacity by 1%
           Exit Sub ' Exit the Subroutine to avoid Disabling the Timer.
        End If
    Else ' If we are decrementing the opacity
        If Me.Opacity >= 0.5 Then ' If the opacity is more than 50%
            Me.Opacity -= 0.01 ' Decrement Opacity by 1%
            Exit Sub ' Exit the Subroutine to avoid Disabling the Timer.
        End If
    End If
    ' Disable the timer as it doesn't fit into any of the conditions above.
    tmrFade.Enabled = False
End Sub

Private Sub Form1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MouseEnter
    ' Tell the timer, that we want to fade up.
    fadeDirection = True

' Initialise the timer.
    tmrFade.Interval = fadeSpeed
    tmrFade.Enabled = True
End Sub

Private Sub Form1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MouseLeave
    ' Tell the timer, that we want to fade down.
    fadeDirection = False

' Initialise the timer
    tmrFade.Interval = fadeSpeed
    tmrFade.Enabled = True
End Sub

Comments
preacher1 2008-07-06 17:32:09
Hi, thank you for the code snippet Roger. I am incorporating it in my amortization program for class. I did alter the fade from 0.5 to 0.8 so that my user can still see the radio buttons, button controls and output. It would be interesting to adapt the mouseover to allow the background color to change from blue or whatever color to others gradually or set by a timer so that the webpage is every changing. Tom Preacher1
APag96 2009-01-28 02:20:06
Wow. This is really cool. I was surprised on how neat it made a simple form look. Good job!
shahi300 2009-02-03 11:01:22
thank you
Asscotte 2009-04-15 06:40:20
auwsome that is sooooo cool lol :) thx
Nikhil_07n 2009-05-06 02:25:30
Nice...Thanks!
marxman89 2009-08-19 05:10:43
superb.
arkerio 2010-01-17 00:50:15
AWESOME bro NYC WORK :)