Visual Basic: Membuat Background Form Berubah Warna Secara Random

Sudah lama rasanya saya tidak membagi tips mengenai visual basic. Nah untuk kali ini saya akan membagikan cara bagaimana membuat background pada form visual basic (vb 6) menjadi berubah-ubah warna (warna-warni). Jadi nanti seperti random (acak) sistemnya. Okey langsung saja, lihat caranya di bawah ini:

1. Desain form seperti di bawah ini:

Visual Basic: Membuat Background Form Berubah Warna Secara Random

2. Masukan komponen Timer sebanyak 2 buah dan Label sebanyak 1 buah
3. Ubah properties name pad aform => formimaniawan
4. Ubah properties interval pada kedua Timer => 100



5. Isikan coding di bawah ini (perhatikan nama komponennya)
Private Sub Form_Load()
Timer2.Enabled = True
Randomize
formimaniawan.BackColor = Rnd(&H80000009)
End Sub
Private Sub Timer1_Timer()
formimaniawan.Visible = True
formimaniawan.Enabled = True
formimaniawan.BackColor = QBColor(Rnd * 1)
formimaniawan.BackColor = QBColor(Rnd + 2)
formimaniawan.BackColor = QBColor(Rnd + 3)
formimaniawan.BackColor = QBColor(Rnd + 4)
formimaniawan.BackColor = QBColor(Rnd + 5)
formimaniawan.BackColor = QBColor(Rnd + 6)
formimaniawan.BackColor = QBColor(Rnd + 7)
End Sub
Private Sub Timer2_Timer()
formimaniawan.Visible = True
formimaniawan.BackColor = QBColor(Rnd * 8)
End Sub
Semoga Bermanfaat



Bagikan :
+
Previous
Next Post »
0 Komentar untuk "Visual Basic: Membuat Background Form Berubah Warna Secara Random"

 
Back To Top