Dengan memberikan animasi pada tombol atau button exit maka tampilan aplikasi yang kita buat akan menjadi lebih menarik. Nah... untuk itu pada kesempatan kali ini saya akan berikan tutorial mengenai Cara Buat Animasi Button Exit Lebih Menarik Dengan Visual Basic 6.0
Baiklah kita langsung saja menuju pada langkah-langkah pembuatan Animasi tersebut. Adapun cara pengerjaanya dapat saudara ikuti langkah-langkah dibawah ini dengan benar :
- Langkah Pertama : Pastikan saudara telah membuat project baru dan memiliki tompol Exit atau Keluar, seperti gambar dibawah ini :
- Langkah Kedua : Saudara dapat memasukan Coding Program dibawah ini kedalam Area Kerja (Coding) Seperti gambar berikut :
Coding Animasi Tombol Exit atau Keluar Untuk Form Input :
On Error Resume Next
Dim fHeight As Long
Dim fWidth As Long
pesan = MsgBox("Anda Yakin Ingin Keluar...?", vbQuestion + vbYesNo, "Informasi")
If pesan = vbYes Then
For fHeight = Me.Height To 1000 Step -1
Me.Height = fHeight
Move (Screen.Width - Width) / 2, (Screen.Height - Height) / 2
Next fHeight
If Me.Height = 1000 Then
For fWidth = Me.Width To 1000 Step -1
Move (Screen.Width - Width) / 2, (Screen.Height - Height) / 2
Me.Width = fWidth
Next fWidth
End If
Unload Me
End If
Keterangan : Untuk mengatur kecepatan dan arah Exit atau keluar saudara bisa setting sendiri pada Coding diatas
- Langkah Ketiga : Pada Menu Utama kita juga dapat memasukan Coding Program pada Langkah Kedua tersebut.
Coding Animasi Untuk Keluar Dari Project :
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) / 2
Next fHeight
If Me.Height = 1000 Then
For fWidth = Me.Width To 1000 Step -1
Move (Screen.Width - Width) / 2, (Screen.Height - Height) / 2
Me.Width = fWidth
Next fWidth
End If
End
End Sub
Keterangan : Pada Langkah Kedua dan Langkah Ketiga untuk Coding Programnya tidak jauh berbeda, namun, disitu kita menggunakan perintah ‘Unload Me’ yang digunakan untuk menutup Form Input atau Form yang kita buka, sedangkan pada Coding Program Exit atau Keluar pada Menu Utama bertujuan untuk menutup Project atau Aplikasi yang kita jalankan dengan menggunakan perintah ‘End’
Sekian dulu dari saya semoga artikel ini dapat membantu saudara dan saya sendiri tentunya. Mohon maaf atas segala kekurangan mari selalu berbagi ilmu bersama kami disini di www.Peiindostar.com. Salam kompak selalu untuk kita semua. Wasalam...
0 Komentar untuk "Cara Buat Animasi Button Exit Lebih Menarik Dengan Visual Basic 6.0"
------------------------------------------------------------------------------------
ATURAN PEMBERIAN KOMENTAR DAN SARAN :
- SOPAN
- RELEVAN
SILAHKAN BERIKAN KOMENTAR SAUDARA
ATAS PERHATIANNYA SAYA UCAPKAN TERIMAKASIH!!!
-------------------------------------------------------------------------------------