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:

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