Results 1 to 3 of 3

Thread: Example code: Fading a windows form

  1. #1

    Thread Starter
    Fanatic Member
    Join Date
    Jul 2009

    Example code: Fading a windows form

    Hello everyone.

    This time no question, but I made some code that was VERY useful for my desktop window. It allows gradual movement of forms, including gradual opacity change! It was great for my drop-down fading menu.

    Public Class FormFading
        Private Shared FC As New List(Of FadeCommand)
        Private Class FadeCommand
            Public Start As Rectangle
            Public Dest As Rectangle
            Public SCount As Double
            Public Form As Form
            Public AStart As Double
            Public ADest As Double
            Public Sub StartFade()
                abort = False
                t = New System.Threading.Thread(AddressOf fadethread)
                t.IsBackground = True
            End Sub
            Public Sub StopFade()
                abort = True
            End Sub
            Private t As Threading.Thread
            Private abort As Boolean
            Private Sub fadethread()
                If SCount > 0 Then
                    Dim soff As RectangleF = GetOffset(Start, Dest, SCount)
                    Dim current As RectangleF = Start
                    Dim state As Double = 0
                    Do While CDec(state) < 1 And abort = False
                        current.X += soff.X
                        current.Y += soff.Y
                        current.Width += soff.Width
                        current.Height += soff.Height
                        Dim cur As New Rectangle(current.X, current.Y, current.Width, current.Height)
                        state += 1 / SCount
                        If Not Update(cur, AStart + (ADest - AStart) * state) Then abort = True
                End If
                If abort = False Then Update(Dest, ADest)
            End Sub
            Delegate Function myUpdate(ByVal rect As Rectangle, ByVal opacity As Double) As Boolean
            Private Function Update(ByVal rect As Rectangle, ByVal opacity As Double) As Boolean
                    If Form.InvokeRequired Then
                        Return Form.Invoke(New myUpdate(AddressOf Update), rect, opacity)
                        Form.Bounds = rect
                        Form.Opacity = opacity
                        Return True
                    End If
                    Return False
                End Try
            End Function
            Private Function GetOffset(ByVal Start As Rectangle, ByVal Dest As Rectangle, ByVal StepCount As Double) As RectangleF
                Dim r As New RectangleF
                r.X = (Dest.X - Start.X) / StepCount
                r.Y = (Dest.Y - Start.Y) / StepCount
                r.Width = (Dest.Width - Start.Width) / StepCount
                r.Height = (Dest.Height - Start.Height) / StepCount
                Return r
            End Function
        End Class
        Public Shared Sub FadeForm(ByVal form As Form, ByVal RequestedBounds As Rectangle, Optional ByVal Duration As Integer = 1000, Optional ByVal AlphaStart As Double = -1, Optional ByVal AlphaEnd As Double = -1)
            Dim f As New FadeCommand
            f.Form = form
            f.Start = form.Bounds
            f.Dest = RequestedBounds
            f.SCount = Duration / 10
            If AlphaStart >= 0 And AlphaStart <= 1 Then f.AStart = AlphaStart Else f.AStart = form.Opacity
            If AlphaEnd >= 0 And AlphaEnd <= 1 Then f.ADest = AlphaEnd Else f.ADest = f.AStart
        End Sub
        Public Shared Sub StopFadeForm(ByVal Form As Form)
            For Each ff As FadeCommand In FC
                If ff.Form Is Form Then
                    Exit For
                End If
        End Sub
    End Class
    Of course I have only tested this for 2 hours or so, but as far I can tell it is completely bug-free. It even allows multiple fading commands; it closes the old one and removes it. Then it just starts a new command from the current position.

    Basic principle is this:
    - You make the start, destination, current rectangle variables
    - You set a fade time; convert this to the amount of steps
    - You generate a rectangleF structure containing the offset per step
    - You change it in a do while loop inside a thread using invokes
    - When the total step count equals 1, it steps out and sets the form
    - Using the state it also sets the opacity

    You can call it like this from your form:
    FormFading.FadeForm(Me, New Rectangle(600, 100, 200, 300), 2000, 0, 1)
    BTW: Fading: 0 = transparent; 1 = opaque

    Feel free to use it in any program you want.

  2. #2
    Fanatic Member BlindSniper's Avatar
    Join Date
    Jan 2011
    South Africa

    Re: Example code: Fading a windows form

    if You want you can add this in fade form (sometimes Useful)
       If form.WindowState = FormWindowState.Maximized Then
                form.WindowState = FormWindowState.Normal
        End If
    Otherwise Very nice code. It's Smooth and works well.

    Useful CodeBank Entries of mine
    Expand Function
    Code Compiler
    Sudoku Solver
    HotKeyHandler Class

    Read this to get Effective help on VBForums
    Hitchhiker's Guide to Getting Help at VBF

  3. #3

    Thread Starter
    Fanatic Member
    Join Date
    Jul 2009

    Re: Example code: Fading a windows form

    Yep that could be a good idea, although usually when you start fading you start from an already known point and size, so I thought it was a little useless.
    For those that want to fade the form when it is currently maximized/minimized, add the code:
    If form.WindowState <> FormWindowState.Normal Then
         form.WindowState = FormWindowState.Normal
    End If
    Directly before starting the new process:

Tags for this Thread

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts


Click Here to Expand Forum to Full Width