+- Devilzc0de Forum (http://devilzc0de.org/forum)
+-- Forum: Information Technology (/forum-8.html)
+--- Forum: Programming (/forum-33.html)
+---- Forum: Visual Basic (/forum-39.html)
+---- Thread: [Tutor] [VB 6] Membuat Gradient Warna Pada Form (/thread-8975.html)
Pages: 1 2
[VB 6] Membuat Gradient Warna Pada Form - mydisha - 07-09-2011 03:15 PM
nih gan ane mau share source code untuk membuat gradient pada form di vb 6
Quote: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
========================
Author : Mydisha
Compiller : Microsoft Visual Basic 6.0
========================
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 Sublalu 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 Subsemoga berguna
Kalau ada yang merasa bingung dapat di tanyakan disini
Contohnya
![[Image: 48139386.jpg]](http://img269.imageshack.us/img269/6252/48139386.jpg)
RE: [VB 6] Membuat Gradient Warna Pada Form - qball006_error - 07-09-2011 04:16 PM
gx da pic nya mba
RE: [VB 6] Membuat Gradient Warna Pada Form - mydisha - 07-09-2011 05:04 PM
(07-09-2011 04:16 PM)qball006 Wrote: gx da pic nya mba
pic apanya yang ga ada ? kan itu udah di kasih code nya
RE: [VB 6] Membuat Gradient Warna Pada Form - qball006_error - 07-09-2011 07:36 PM
gambar hasil jdnya gituh
RE: [VB 6] Membuat Gradient Warna Pada Form - crazzy - 07-09-2011 08:33 PM
ane jadi gan ...
.. dias emang keren dalam VB6 programing !!!
RE: [VB 6] Membuat Gradient Warna Pada Form - mydisha - 07-10-2011 09:32 AM
(07-09-2011 07:36 PM)qball006 Wrote: gambar hasil jdnya gituh
oh oke gan nanti ane kasih pic nya,bentar ya ..
(07-09-2011 08:33 PM)crazzy Wrote: ane jadi gan ...
wets
dah ..wew kok ente kenal nama ane gan ?
RE: [VB 6] Membuat Gradient Warna Pada Form - qball006_error - 07-10-2011 09:33 AM
oke gan ane tunggu
RE: [VB 6] Membuat Gradient Warna Pada Form - mariachi - 07-10-2011 02:08 PM
gak ngerti VB
RE: [VB 6] Membuat Gradient Warna Pada Form - qball006_error - 07-10-2011 05:24 PM
(07-10-2011 02:08 PM)t3k0 Wrote: gak ngerti VB
pelajari
aja omz nanti juga ngerti
RE: [VB 6] Membuat Gradient Warna Pada Form - mydisha - 07-10-2011 06:43 PM
tuh pic contohnya udah saya aplot :)