Rabu, 28 Desember 2011

Effect Fade In And Fade Out

Apa Itu fade In, fade out? mungkin sebagian sudah tahu, yaitu efek transparan pada form, mulai dari yang tadinya tidak kelihatan perlahan lahan menjadi kelihatan, begitupun sebaliknya. 













Di Visual Basic.NET sudah disediakan properti transparan ini yaitu Opacity, nilainya 0% sampai 100% atau (0 sampai 1). Nah untuk menggerakan nilai itu dari 0% ke 100% atau pun kebalikannya dari 100% ke 0% secara otomatis maka dibutuhkan sedikit tambahan coding untuk membuat effect fade in dan fade out itu, OK, langsung saja kita ke TKP:


1.Set Opacity = 0% di form load:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Opacity = 0
End Sub  

2.Simpan sintak ini di event Shown
Private Sub Form1_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
        For i As Integer = 0 To 100
            Me.Opacity = i / 100
            'Untuk Memperlambat(delay), agar fading kelihatan
            Threading.Thread.Sleep(30)
            'Untuk membantu efek semakin terlihat jelas
            Windows.Forms.Application.DoEvents()
        Next
End Sub

3.Simpan sintak ini di event Form_Closing
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

        For i As Integer = 0 To 100
            Me.Opacity = (100 - i) / 100
            'Untuk Memperlambat(delay), agar fading kelihatan
            Threading.Thread.Sleep(30)
            'Untuk membantu efek semakin terlihat jelas
            Windows.Forms.Application.DoEvents()
        Next
End Sub

Ditulis Oleh : Wahyu Aji // 19.49
Kategori:

0 komentar:

Posting Komentar