Cara buat Animasi Tutup ke atas di Visual Basic 6.0
Kali ini saya akan menulis cara buat animasi tutup ke atas dengan visual basic 6.0 . Untuk mempercantik tampilan software dapat melukan dengan berbagai. Termasuk yang satu ini ni, ketika aplikasi di tutup maka aplikasi akan berjalan keatas dan menghilang.
Script ini akan membuat aplikasi yang akan dibuat nanti nya menjadi semakin kece. Visual basic aplikasi yang menurut saya termasuk aplikasi pemrograman yang menarik dan asik menurut saya.
Desain yang akan dibuat dapat dilakukan melalui tampilan visual nya. Buat yang baru terjun di dunia programing pastinya dapat menggunakan aplikasi yang satu ini.
Baiklah. saya rasa sudah cukup basa basi nya. Yang membuat agan basi disini gara-gara celotean saya, alangkah baik nya langsung menuju TKP.
Peralatan :
1. Satu buah pc lengkap dengan sistem operasinya
2. Install Visual Basic 6.0 atau Download Visual Basic 6.0 Enterprise edition
3. Itu saja cukup saya rasa.
Langkah-langkahh :
1. Buka visual basic 6.0
2. Pilih Standard.exe
3. Letakkan 1 command button diatas form1
Script ini akan membuat aplikasi yang akan dibuat nanti nya menjadi semakin kece. Visual basic aplikasi yang menurut saya termasuk aplikasi pemrograman yang menarik dan asik menurut saya.
Desain yang akan dibuat dapat dilakukan melalui tampilan visual nya. Buat yang baru terjun di dunia programing pastinya dapat menggunakan aplikasi yang satu ini.
Baiklah. saya rasa sudah cukup basa basi nya. Yang membuat agan basi disini gara-gara celotean saya, alangkah baik nya langsung menuju TKP.
Peralatan :
1. Satu buah pc lengkap dengan sistem operasinya
2. Install Visual Basic 6.0 atau Download Visual Basic 6.0 Enterprise edition
3. Itu saja cukup saya rasa.
Langkah-langkahh :
1. Buka visual basic 6.0
2. Pilih Standard.exe
3. Letakkan 1 command button diatas form1
4. Ganti caption command1 menjadi " Tutup "
5. Kemudian, dobel klik di command button, dan isikan kode berikut :
Do
Me.Top = Me.Top - 40
Me.Move Me.Left, Me.Top
DoEvents
Loop Until Me.Left > Screen.Width
Me.Top = Me.Top - 40
Me.Move Me.Left, Me.Top
DoEvents
Loop Until Me.Left > Screen.Width
Maka akan seperti ini
6. Kemudian jalankan Project nya.
7. Selamat mencoba. Terima Kasih
Jika ada yang kurang jelas, silahkan leave komentar dibawah.
Tidak ada komentar
No Spam / Ads or Outside Links