WARNA GRADIENT MEMUSAT DITENGAH FORM

Warna gradient memusat ditengah form

Assalamualaikum wr, wb..

Setelah sebelumnya kita belajar membuat warna Gradient Form vertikal (dari atas kebawah).  Nah sekarang kita akan lanjutkan dengan membuat gradient secara memutar berpusat ditengah form. Caranya gampang sekali dan kali ini kita buat sederhana tanpa memasang komponen-komponen lain supaya pembahannya lebih terpokus ke Form.

Ok kita langsung saja ya..

Langkah-langkah membuat warna gradient form memusat di tengah

1. Buka program Visual  Basic dan mulai dengan Form baru.

2. Langsung saja masukan listing kode dibawah ini pada prosedur Form_Resize() dengan cara double klik 

    pada area formnya.

Private Sub Form_Resize()

' nama form harus sama dengan nama form anda

' karna form saya Form.Name = Form12

CircleGradient Form12, 111, 111, 222, 222, 255, 255, True

End Sub

3. Dan selanjutnya masukan listing kode dibawah ini pada area Declaration/ paling atas code editor.

CircleGradient(frm As Form, rs%, gs%, bs%, re%, ge%, be%, smooth As Boolean) ' lanjutan kode diatas

    If frm.WindowState = vbMinimized Then Exit Sub
    frm.BackColor = RGB(re, ge, be)
    If smooth = True Then
        frm.DrawStyle = 6
    Else
        frm.DrawStyle = 0
    End If
    If frm.ScaleWidth <> 255 Then
        frm.ScaleWidth = 255
    End If
    If frm.ScaleHeight <> 255 Then
        frm.ScaleHeight = 255
    End If
    frm.DrawWidth = 5
    frm.Refresh
    ri = (rs - re) / 255
    gi = (gs - ge) / 255
    bi = (bs - be) / 255
    rc = rs: bc = bs: gc = gs
    For X = 0 To 255
        frm.Circle (frm.ScaleWidth / 2, frm.ScaleHeight / 2), X, RGB(rc, gc, bc) ' lanjutan kode diatas
        rc = rc - ri
        gc = gc - gi
        bc = bc - bi
    Next X
End Sub

4. Jalankan program dengan menekan tombol F5 pada keyboard anda.

Wassalam.. n smoga bermanfaat..