Cara Membuat Animasi Penutup Form Pada Visual Basic


Saya akan membagikan lagi kode source untuk membuat animasi saat kalian menutup form atau aplikasi kalian, bagi yang penasaran kalian boleh coba sendiri

Pertama masukkan buat satu buah Button dengan Nama command1 atau bisa kalian 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

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

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

1 Response to "Cara Membuat Animasi Penutup Form Pada Visual Basic"