Rabu, 19 Desember 2012

Animasi Opacity pada form VB.net

'UNTUK FORM LOAD
Me.Opacity = 0
        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




'UNTUK FORM UNLOAD/CLOSED
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
Oleh CAP INFO TECH
Label:

0 komentar:

Posting Komentar

Setelah melihat - lihat, Alangkah baiknya memberikan komentar mengenai Blog ini.
Kritik dan Saran teman-teman semua, Saya anggap sebagai masukan buat saya... terima kasih telah berkunjung