1226 Views

Crara Membuat Efek Fade In And Out Pada Form Di Vb.net

logo-visual-basic

Hai.. sobat belajarhebat berjumpa lagi dengan saya, kali ini saya akan memberikan tutorial bagaimana Cara Membuat Efek Fade In & Out Pada Form di vb net.

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

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

Mudah sekali bukan!!, nah sekian dari saya semoga bermanfaat bagi anda semua. salam HEBAT!!.

video tutorial

Share
You can leave a response, or trackback from your own site.

Leave a Reply