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
4. Add this code to the Forum_Closed
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