Results 1 to 3 of 3

Thread: [HELP] Fade Out when app is closed

  1. #1

    Thread Starter
    New Member
    Join Date
    Dec 2003
    Posts
    1

    [HELP] Fade Out when app is closed

    Hello,

    I know how to make form fade in when the app is loaded but the question is how to make it fade out when the X button on caption/title bar is clicked or before the app is closed?

    Thanks for help!

  2. #2
    type Woss is new Grumpy; wossname's Avatar
    Join Date
    Aug 2002
    Location
    #!/bin/bash
    Posts
    5,682
    I have used this in VB6 to achieve the effect you describe.
    It works ok on win2000.

    You'll have to translate it into .net though.

    I got this sample from API-Guide
    Code:
    Const AW_HOR_POSITIVE = &H1 'Animates the window from left to right. This flag can be used with roll or slide animation.
    Const AW_HOR_NEGATIVE = &H2 'Animates the window from right to left. This flag can be used with roll or slide animation.
    Const AW_VER_POSITIVE = &H4 'Animates the window from top to bottom. This flag can be used with roll or slide animation.
    Const AW_VER_NEGATIVE = &H8 'Animates the window from bottom to top. This flag can be used with roll or slide animation.
    Const AW_CENTER = &H10 'Makes the window appear to collapse inward if AW_HIDE is used or expand outward if the AW_HIDE is not used.
    Const AW_HIDE = &H10000 'Hides the window. By default, the window is shown.
    Const AW_ACTIVATE = &H20000 'Activates the window.
    Const AW_SLIDE = &H40000 'Uses slide animation. By default, roll animation is used.
    Const AW_BLEND = &H80000 'Uses a fade effect. This flag can be used only if hwnd is a top-level window.
    Private Declare Function AnimateWindow Lib "user32" (ByVal hwnd As Long, ByVal dwTime As Long, ByVal dwFlags As Long) As Boolean
    Private Sub Form_Load()
        'KPD-Team 1999
        'URL: http://www.allapi.net/
        'E-Mail: [email protected]
        'Set the graphic mode to persistent
        Me.AutoRedraw = True
        Me.Print "Unload me"
    End Sub
    Private Sub Form_Unload(Cancel As Integer)
        'Animate the window
        AnimateWindow Me.hwnd, 200, AW_VER_POSITIVE Or AW_HOR_NEGATIVE Or AW_BLEND
        'Unload our form completely
        Set Form1 = Nothing
    End Sub
    I don't live here any more.

  3. #3
    Frenzied Member
    Join Date
    Aug 2000
    Posts
    1,539
    //set the timer interval to 110, for fadein, change the -.05 to +.05
    private void tmrOpacity_Tick(object sender, System.EventArgs e)
    {
    this.Opacity -=.05;
    }

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