Membuat Effect Fade In Dan Fade Out pada Form VB.Net

Yowizzz gak perlu banyak basa basi lagi sekarang kita buat project baru dengan cara
pilih menu file-->New --> project, pilih Windows-->Windows Aplication kemudian klick OK.

Ok Project Suda di buat sekarang kita tambahkan control “Button” : Sehingga Hasilnya akan tampak :

Dan tambahkan kode di bawah ini ke Event click (Button1_Click)

Private Sub FadeOut()

Dim iCount As Integer

For iCount = 100 To 10 Step -2

Me.Opacity = iCount / 100

Me.Refresh()

Threading.Thread.Sleep(50)

Next

Me.Close()

End Sub

Kemudian tambahkan juga kode di bawah ini ke Form_load Event :

Me.Opacity = 0.99

Tambahkan Juga Kode di bawah ini ke Form_load Event :

Private Sub FadeIn()

Dim iCount As Integer

For iCount = 0 To 100 Step +2

Me.Opacity = iCount / 100

Me.Refresh()

Threading.Thread.Sleep(50)

Next

End Sub

Sedikin Penjelasan Dari kode :

For iCount = 0 To 100 Step +2

Me.Opacity = iCount / 100

Me.Refresh()

Threading.Thread.Sleep(50)

Next

Fungsi For Next Adalah Fungsi Untuk Perulangan. di atas ada kode 10 To 100 Step +2 Maksudnya adalah kita akan Menjadikan angka 10 menjadi 100 dengan di tambahkann 2 (0+2) berulang otomatis secara terus menerus hingga nilai dari (0+2) menjadi 100.dan jika nilai dari (0+2) sama dengan 100 maka perulangan di hentikan.

Me.Opacity = iCount / 100 Kode di samping untuk Menentukan Opacity dari Form.dari hasil perulangan, iCount Mempunyai Nilai Seratus dan 100 / 100 = 1 Itu Artinya Nilai Dari Me.Opacity Mempunyai Nilai 1 (Me.Opacity = 1).

NOTE :

Dilai Difault dari Opacity Form di VB.Net adalah 1.

Kode Lengkapnya Di bawah Ini..

Public Class Form1

Private Sub FadeIn()

Dim iCount As Integer

For iCount = 10 To 100 Step +2

Me.Opacity = iCount / 100

Me.Refresh()

Threading.Thread.Sleep(50)

Next

End Sub

Private Sub FadeOut()

Dim iCount As Integer

For iCount = 100 To 10 Step -2

Me.Opacity = iCount / 100

Me.Refresh()

Threading.Thread.Sleep(50)

Next

Me.Close()

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

FadeOut()

End Sub

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

'Me.Opacity = 1

FadeIn()

End Sub

End Class

Referensi : http://blogs.techrepublic.com.com/programming-and-development/?p=524

Share on Facebook