Membuat Efek Fade In Dan Fade Out Pada Form

Nah Tutorial kali ini akan membahas tentang cara membuat efek Fade In dan Fade Out. Langsung saja kita mulai dengan membuat sebuah form dengan design terserah kepada anda dan properties sebagai berikut :

Object	Properties
Form1	Name	FrmFade
	FormBorderStyle	None
	StartPosition	CenterParent
	TopMost	True

Setelah Itu Masukanlah Kode berikut pada

Public Class FrmFade

'Baris Kode FadeIn

Sub FadeIn()

Do Until Me.Opacity = 1

Me.Opacity += 0.00002

Application.DoEvents()

Loop

End Sub

'Baris Kode Fadeout

Sub FadeOut()

Do Until Me.Opacity = 0

Me.Opacity -= 0.00002

Application.DoEvents()

Loop

End Sub

'Fungsu Untuk Memberi Jeda Sebelum Logout anda bisa juga menggunakan Timer

Sub Tunggu()

Dim Hitung = 2000000

Do Until Hitung = 0

Hitung -= 1

Application.DoEvents()

Loop

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'Membuat Form Tak Terlihat

Me.Opacity = 0

'Memanggil Semua Prosedur

FadeIn()

Tunggu()

FadeOut()

End

End Sub

End Class

Untuk source code lengkapnya anda bisa mendownloadnya Disini


by Franky So

Posted in: Source Code,Visual Basic 2010