Selamat Datang di Blog Putra Qincay. Mari kita jalin tali silaturahmi dan saling berbagi. Blog ini aku dedikasikan untuk orang yang ku cintai, untuk diri sendiri dan untuk tanah kelahiran ku.

Thursday, April 15, 2010

Membuat Background Form di VB 6.0 Berubah-ubah Warna

Selamat pagi teman-teman... Ini dia animasi lagi untuk Form. Dimana Form akan berubah warna secara acak. Yang tertarik silahkan buka VB 6.0 kamu dan Add Form baru. Di Form tersebut kamu tambah 2 Timer. Dimana Timer 1 untuk Properties Intervalnya dengan nilai 500 dan Timer 2 Intervalnya bernilai 1000. Tampilan Form akan seperti ini :

Klik dua kali pada Form sehingga kamu berada di Form Code. Copy-Paste code dibawah ini :

Private Sub Form_Load()
Timer2.Enabled = True
Randomize
PutraQincay.BackColor = Rnd(&H80000009)
End Sub

Private Sub Timer1_Timer()
PutraQincay.Visible = True
PutraQincay.Enabled = True
PutraQincay.BackColor = QBColor(Rnd * 1)
PutraQincay.BackColor = QBColor(Rnd + 2)
PutraQincay.BackColor = QBColor(Rnd + 3)
PutraQincay.BackColor = QBColor(Rnd + 4)
PutraQincay.BackColor = QBColor(Rnd + 5)
PutraQincay.BackColor = QBColor(Rnd + 6)
PutraQincay.BackColor = QBColor(Rnd + 7)
End Sub

Private Sub Timer2_Timer()
PutraQincay.Visible = True
PutraQincay.BackColor = QBColor(Rnd * 8)
End Sub

Sekarang coba kamu jalankan atau dengan menekan F5 dan kurang lebih tampilannya terlihat seperti :

Berhasilkan?... Seperti biasa, saya selalu mempunyai keburukan mengganti Nama Form dengan Nama PutraQincay. Maklum saya anak rantau yang selalu merindukan kampung halaman. Jadi Namanya silahkan teman-teman perbaiki ya!!!... Bagi yang belum tau cara merubah namanya cari saja di properties setelah itu Namenya diganti dan sesuaikan dengan selera kamu. Heee... dan bagi yang tidak mau susah-susah gunakan Name Standarnya : Form1.



No comments:

Post a Comment

Kepada para teman Putra Qincay. Silahkan tinggalkan komentar teman disini ya!!!...

PayPal Internasional »
Untuk kemudahan anda bertransaksi antar Negara! Ditunjang berbagai keamanan & dukungan pelayanan penuh agar data pribadi Anda aman. Daftar segera !!
Daftar
Free Web Hosting » Daftar sekarang dan dapatkan semua layanannya gratis: *** 1500 MB disk space *** 100 GB data transfer *** Dukungan PHP dan MySQL tanpa batasan *** CPanel control panel *** Website Builder *** Absolutely no advertising! SigUp Now
affiliates.cjb.net »
Dapatkan sampai $ 5 untuk setiap pengguna yang Anda lihat CJB.NET!
Click Here for sign up as an affiliate
Putra Qincay ©2010
™CentralCenterInformation[at]gmail.com
®Protected by Copyscape Website Copyright Protection