Membuat Background Form Berubah-ubah Warna Dengan VB6

Anda bosan dengan background yang itu itu aja, nah kali ini Admin akan berbagi sebuah kode vb6 yang bisa membuat background Form berubah-ubah warna, sehingga tampilan program lebih menarik dan tidak monoton.

Warna yang di gunakan dalam warna Form ini adalah warna RGB (Red, Green dan Blue) yang menampilkan warna secara acak sesuai Timer yang di tentukan.

Warna Form Animasi

Untuk membuatnya sangat mudah, anda cukup menambahkan Control Timer di Form, kemudian ketik kode dibawah ini :

Dim merah As Integer

Dim ijo As Integer

Dim biru As Integer

Dim increment As Integer

Private Sub Form_Load()

    ' Inisialisasi variabel

    merah = 0

    ijo = 0

    biru = 0

    increment = 5 ' Nilai perubahan warna

    

    ' Mulai Timer

    Timer1.Interval = 150

    Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()

    ' Perbarui nilai RGB

    merah = (merah + increment) Mod 256

    ijo = (ijo + increment * 2) Mod 256

    biru = (biru + increment * 3) Mod 256

    

    ' Ubah warna latar belakang form

    Me.BackColor = RGB(merah, ijo, biru)

End Sub

Setelah Anda membuat kode seperti diatas jalankan Project Anda dengan menekan tombol Run/F5, maka Anda akan melihat background Form Anda berganti warna secara halus.

Demikian artikel singkat hari ini tentang Membuat Background Form Berubah-ubah Warna Dengan VB6.

Semoga artikel ini bermanfaat buat kita semua.Amin.

Selamat mencoba semoga berhasil.

Related Post: Animasi Form