Membuat Warna Gradien Di Form Pada VB6

Terkadang kita merasa bosan jika program yang kita buat hanya berwarna standart antara hitam, abu-abu dan putih. Lalu bagaimana cara kita mengatasi itu ? saya sih punya saran kenapa kita tidak mencoba menggunakan kombinasi warna saja atau yang biasa di sebut gradien.

Bagaimana bisa ? kan di sebuah properties form hanya menyediakan satu warna ! , gampang ko, kita hanya cukup memberi sedikit sintek sehingga memudahkan kita dalam memberikan warna gradien pada form.

Ok langsung saja kita bahas masalah itu disini, pertama bukalah project yang kalian punya atau untuk sekedar pembelajaran, kalian buatlah project baru, lalu tambahkan satu buah Module dengan cara klik kanan pada project > Add > Module > Open

Gambar di atas terlihat jelas kan ? setelah di open maka nanti akan muncul kolom kosong tempat dimana kalian akan menuliskan sintek di module tersebut.

Nah untuk sinteknya sendiri kalian bisa mengisinya seperti di bawah ini:

Option Explicit
Declare Function GetSysColor Lib "user32" (ByVal nIndex As Long) As Long

Sub Gradien(Obj As Object, Tipe As Integer, _
Color1 As Long, Color2 As Long)
    Dim Y!, X!
 
    Dim sngMerah!, sngHijau!, sngBiru As Single
    Dim Merah%, Hijau%, Biru%
    Dim Merah2%, Hijau2%, Biru2 As Integer
 
    Dim Temp As Long
 
    Obj.AutoRedraw = True

    Temp = (Color1 And 255)
    Merah = Temp And 255
     
    Temp = Int(Color1 / 256)
    Hijau = Temp And 255
     
    Temp = Int(Color1 / 65536)
    Biru = Temp And 255
     
    Temp = (Color2 And 255)
    Merah2 = Temp And 255
     
    Temp = Int(Color2 / 256)
    Hijau2 = Temp And 255
     
    Temp = Int(Color2 / 65536)
    Biru2 = Temp And 255
     
    If Tipe = 1 Then
        sngMerah = Abs(Merah - Merah2) / Obj.ScaleHeight
        sngHijau = Abs(Hijau - Hijau2) / Obj.ScaleHeight
        sngBiru = Abs(Biru - Biru2) / Obj.ScaleHeight
    Else
        sngMerah = Abs(Merah - Merah2) / (Obj.ScaleWidth)
        sngHijau = Abs(Hijau - Hijau2) / (Obj.ScaleWidth)
        sngBiru = Abs(Biru - Biru2) / (Obj.ScaleWidth)
    End If
     
    If Merah2 < Merah Then sngMerah = -sngMerah
    If Hijau2 < Hijau Then sngHijau = -sngHijau
    If Biru2 < Biru Then sngBiru = -sngBiru
     
    If Tipe = 1 Then
 
        For Y = 0 To Obj.ScaleHeight
            Merah2 = Merah + sngMerah * Y
            Hijau2 = Hijau + sngHijau * Y
            Biru2 = Biru + sngBiru * Y
            Obj.Line (0, Y)-(Obj.Width, Y), _
            RGB(Merah2, Hijau2, Biru2)
        Next Y
    Else

        For X = 0 To Obj.ScaleWidth
            Merah2 = Merah + sngMerah * X
            Hijau2 = Hijau + sngHijau * X
            Biru2 = Biru + sngBiru * X
            Obj.Line (X, 0)-(X, Obj.Height), _
            RGB(Merah2, Hijau2, Biru2)
        Next X
    End If
End Sub

Setelah itu kalian tinggal memberikan sintek di form nya saja seperti di Form_Load atau apa saja yang menurut kalian pas untuk pemanggilan warna gradien. Sebagai contoh saya akan memberikan sintek di Form_Load seperti ini:

Gradien Me, 0, vbRed, vbWhite

Lalu cobalah untuk Run project kalian, jika kalian mengikuti apa yang sudah saya jelaskan di atas maka hasilnya akan sama dengan gambar yang sudah saya berikan di paling atas.

Keterangan:
 0 = Tipe posisi warna , di module saya memberikan 2 tipe yaitu 0 dan 1
vbRed = warna pertama, kalian bisa merubahnya sesuai keinginan kalian
vbWhite = warna kedua

Selamat Mencoba.

Terima kasih sudah menyempatkan waktu untuk membaca artikel Membuat Warna Gradien Di Form Pada VB6. Jika terdapat link error silahkan langsung hubungi saya di menu Contact supaya bisa langsung di perbaiki dan jangan lupa tinggalkan komentar kamu setelah selesai membaca artikel ini. Salam Admin

Ditulis oleh: Unknown - Monday 2 December 2013