Fade your program

Okay this is a tutorial on how to fade your application. (Very simple)

also im going to put this code in a module cus its cleaner that way

1. Make a new application

2. Add a Module and add this code:

Code:

    Public Sub fadein()
        Dim F As Double
        For F = 0.0 To 1.1 Step 0.1
            Form1.Opacity = F
            Form1.Refresh()
            Threading.Thread.Sleep(100)
        Next
    End Sub
    Public Sub fadeout()
        Dim FO As Double
        For FO = 1.1 To 0.0 Step -0.1
            Form1.Opacity = FO
            Form1.Refresh()
            Threading.Thread.Sleep(100)
        Next
    End Sub

3. Add this code to the Forum_Load

Code:

fadein()

4. Add this code to the Forum_Closed

Code:

fadeout()

TaDah! your done! easy right?
__________________________________________________ __________________________________________________ __
you can also dink around with a Trackbar

say you make it maximum of 5

then you just add this code:

Code:

If TrackBar1.Value = 5 Then
            Me.Opacity = 0.5
        End If
        If TrackBar1.Value = 4 Then
            Me.Opacity = 0.6
        End If
        If TrackBar1.Value = 3 Then
            Me.Opacity = 0.7
        End If
        If TrackBar1.Value = 2 Then
            Me.Opacity = 0.8
        End If
        If TrackBar1.Value = 1 Then
            Me.Opacity = 0.9
        End If
        If TrackBar1.Value = 0 Then
            Me.Opacity = 1
        End If

the numbers can be what you want them to be 0 - 1, i wouldnt recommend going below 0.01 or it may not let you click on the application anymore

and so when you scroll left to right it fades in or out depending on which way you move it.
__________________________________________________ __________________________________________________ __

Also you can make just a regular hide button and put this code so if you press it again it comes back:

Code:

        If Me.Opacity = 1 Then
            Me.Opacity = 0.01
        Else
            Me.Opacity = 1
        End If

Nice tut man. I appreciate it, I was looking on how to do this earlier.

this is noob but, How do i get the form closing?

did it on startup and it lagged. Dont like it xD

Fade your program

Code:

    Public Sub fadein()
        Dim F As Double
        For F = 0.0 To 1.1 Step 0.1
            Form1.Opacity = F
            Form1.Refresh()
            Threading.Thread.Sleep(100)
        Next
    End Sub
    Public Sub fadeout()
        Dim FO As Double
        For FO = 1.1 To 0.0 Step -0.1
            Form1.Opacity = FO
            Form1.Refresh()
            Threading.Thread.Sleep(100)
        Next
    End Sub

3. Add this code to the Forum_Load

Code:

fadein()

4. Add this code to the Forum_Closed

Code:

fadeout()

Code:

If TrackBar1.Value = 5 Then
            Me.Opacity = 0.5
        End If
        If TrackBar1.Value = 4 Then
            Me.Opacity = 0.6
        End If
        If TrackBar1.Value = 3 Then
            Me.Opacity = 0.7
        End If
        If TrackBar1.Value = 2 Then
            Me.Opacity = 0.8
        End If
        If TrackBar1.Value = 1 Then
            Me.Opacity = 0.9
        End If
        If TrackBar1.Value = 0 Then
            Me.Opacity = 1
        End If

Code:

        If Me.Opacity = 1 Then
            Me.Opacity = 0.01
        Else
            Me.Opacity = 1
        End If

Nice tut man. I appreciate it, I was looking on how to do this earlier.

this is noob but, How do i get the form closing?

did it on startup and it lagged. Dont like it xD

Fade your program

Post a Reply

Similar Threads

Tags for this Thread

Fade your program

Post a Reply

Similar Threads

Tags for this Thread