TKJ 2 comunity

forum ini khusus buat para TKJ lovers
 
IndeksCalendarFAQPencarianAnggotaGroupPendaftaranLogin

Share | 
 

 [ SC VB6 ] Membuat Gradient Warna Pada Form

Topik sebelumnya Topik selanjutnya Go down 
PengirimMessage
uzumady
Admin
Admin
avatar

Jumlah posting : 44
ES Oyen : 0
Join date : 12.01.11
Lokasi : MAGREZZZZZZZZZZZ

PostSubyek: [ SC VB6 ] Membuat Gradient Warna Pada Form   Mon Mar 07, 2011 8:00 am

nih gan ane mau share source code untuk membuat gradient pada form di vb 6

Gradient menurut ane itu
adalah mencampurkan warna ... contoh nya kayak antivirus smadav yang
pake gradient campuran warna hijau dan putih.

langsung aja kita masuk dan bahas code nya

===========================
Membuat Gradient Form Vb6
===========================

Buatlah sebuah project baru,lalu tambahkan 1 buah module
module nya di beri nama modGradient

Code:


Option Explicit

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

Sub CatForm(Obj As Object, Jenis 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 Jenis = 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
       
    'Mulai mengcat form
    If Jenis = 1 Then
   
            'Arah gradient vertikal
        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
            'Arah Gradient Horisontal
        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


lalu untuk menggunakan nya dapat menggunakan fungsi di bawah ini

Code:


CatForm Me, 0, &HC0C0C0, &H808080



*NB : code di atas berfungsi untuk mewarnai form secara Horizontal
dan mengambil warnanya berdasarkan nilai Hexa

Horizontal = 0
Vertical = 1


agar form dapat di buat gradient saat program di jalankan dapat menggunakan code di bawah ini

Code:


Private Sub Form_Load()
    CatForm Me, 0, &HC0C0C0, &H808080
End Sub



semoga berguna

Kalau ada yang merasa bingung dapat di tanyakan disini

jangan lupa
Kembali Ke Atas Go down
Lihat profil user http://www.samwanwebster.co.cc
 
[ SC VB6 ] Membuat Gradient Warna Pada Form
Topik sebelumnya Topik selanjutnya Kembali Ke Atas 
Halaman 1 dari 1
 Similar topics
-
» ganti warna motor
» Lampu depan ninja 250 yg low beam bisa dimodif nyala dua duanya?
» WTA KASIH EFEK WARNA PELANGI DI KNALPOT KROM
» Fitur baru Readmore pada blogspot!
» [WTS] Led Kolong Warna Merah /Meter sesuai Kebutuhan

Permissions in this forum:Anda tidak dapat menjawab topik
TKJ 2 comunity :: VB 6-
Navigasi: