Fade In/Out

data4use
12-09-2007, 17:54   |  #1  
OP Üye
Teşekkür Sayısı: 0
60 mesaj
Kayıt Tarihi:Kayıt: Tem 2006

Kısa bir açıklama;

  • Fade In = Parla (yani yavaş yavaş göster)
  • Fade Out = Sön (yani yavaş yavaş sakla)
  • 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 Dil çıkarıyor) 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.