Cara Membuat Animasi Penutup Form Pada Visual Basic

Rabu, 10 April 2013



Teman-teman kali ini saya akan membagikan lagi kode source untuk membuat animasi saat anda menutup form atau aplikasi anda. Bagi yang penasaran anda boleh coba sendiri :)

Pertama masukkan buat satu buah [ Button ] dengan |Nama| "command1" atau bisa anda sesuaikan sendiri, contoh nama tombol yang akan saya buat yaitu |command1|

Kemudian tab pada bagian pengkodean dan pilih |GENERAL| kemudian langsung saja pastekan kode ini:



Private Sub Command1_Click()
ExitLayout
Unload Me
End Sub

Private Sub ExitLayout()
On Error Resume Next
Dim fHeight As Long
Dim fWidth As Long

For fHeight = Me.Height To 1000 Step -1
Me.Height = fHeight
'Move (Screen.Width - Width) / 2, (Screen.Height - Height) / 3
Next fHeight

If Me.Height = 1000 Then
For fWidth = Me.Width To 1000 Step -2
Me.Width = fWidth
Next fWidth
End If
Me.Refresh
End Sub

klik disini untuk copy cepat....


Catatan!
Fungsi dari Button yang tadi di buat adalah sebagai tombol keluar, ketikkan tombol tersebut di klik otomatis anda akan menutup aplikasi anda dengan sebuah animasi keren!

Jika sudah selesai silahkan tekan F5 pada keyboard untuk langsung mencobanya.!
Sekian dulu dan Terima Kasih!

Jangan lupa follow ya.. @kenhondar

1 komentar :