Kısa bir açıklama;
Bu efekt programınızı daha estetik bir hale getirmek için ve/veya çok formlu programlarda üstteki formun fokusunu (kontrolünü) kaybettiğinde transparan olmasını sağlamaktır.
Kısaca şöyle işler; form focuslandığında (kontrolü eline aldında ) fade in, form kontrolü kaybettiğinde fade out devreye girer.
Fade In:
Bir timer yaratın. Interval = 200 ve Enabled = True olacak şekilde ayarlayın ve Timer_Tick'e (Timer'a çift tıklayınca kodlarda çıkacak) aşağıdaki kodu yazın;
If Me.Opacity <> 100 Then
Me.Opacity += 0.1
Else
Timer1.Enabled = False
End If
Bu size formun opacity'si (saydamlığı) 100 olana kadar her 200 milisaniyede bir opacity'yi 1 arttırır.
Fade Out:
Yine bir timer yaratın.Interval = 200 ve Enabled = False olacak şekilde ayarlayın. Bu timer şimdilik kapalı kalacak. Form1_MouseLeave olayına Timer2.Enabled = True yazın. Şimdi ise Timer2_Tick (gene aynı şekilde Timer2'nin üzerine çift tıklayın) olayına da bunları yazın;
Dim i As Integer = 0
If i <> 5 Then
Me.Opacity -= 0.1
ElseIf i = 5 Then
Timer2.Enabled = False
End If
Programı yazınca bir örnek de koyacağım. Kolay gelsin.