Membuat Warna Form Gradasi di Microsoft Visual Basic 6.0

         

Kata “Microsoft Visual Basic” sudah tidak asing lagi ditelinga, karena nama itu sudah sering di dengar, terutama di kalangan anak-anak yang suka ngoprek bikin program, karena software ini merupakan salah satu software yang bisa digunakan untuk membuat aplikasi/program visual berbasiskan sistem operasi berbasis Microsoft Windows.

          Kali ini, ane akan share cara membuat warna gradasi di microsoft visual basic 6.0, dan warna gradasi ini bisa di terapkan di sebuah form atau bahkan pada objek lain seperti picture box, text box, label, dsb.

Oke langsung aja, ikutin langkah-langkahnya :

1. Buka Microsoft Visual Basic 6.0
2. Pilih standard exe
3. Kemudian masuk ke jendela kode
4. Selanjutnya, buat sub kelas baru dengan nama Gradient. Silahkan pastekan kode dibawah ini:

Sub Gradient(TheObject As Object, ByVal byredval As Long, ByVal greenval As Long, ByVal blueval As Long, ByVal direction As Integer)

Dim step As Integer, reps As Integer, filltop As Integer

Dim filleft, fillright, fillbottom As Integer

If direction < 1 Or direction > 4 Then direction = 1

filltop = 0

fillleft = 0

If direction < 3 Then

step = (TheObject.Height / 100)

If direction = 2 Then filltop = TheObject.Height - step

fillbottom = filltop + step

fillright = TheObject.Width

Else

step = (TheObject.Width / 100)

If direction = 4 Then fillleft = TheObject.Width - step

fillright = filltop + step

fillbottom = TheObject.Width

End If

For reps = 1 To 100

If direction = 2 And reps = 100 Then filltop = 0

If direction = 4 And reps = 100 Then fillleft = 0

Redval = Redval - 3

greenval = greenval - 3

blueval = blueval - 3

If Redval <= 0 Then Redval = 0

If greenval <= 0 Then greenval = 0

If blueval <= 0 Then blueval = 0

TheObject.Line (filleft, filltop)-(fillright, fillbottom), RGB(Redval, greenval, blueval), BF

If direction < 3 Then

If direction = 1 Then

    filltop = fillbottom

    Else

    filltop = filltop - step

    End If

    fillbottom = filltop + step

Else

If direction = 3 Then

    fillleft = fillright

    Else

    filltop = fillleft - step

    End If

    fillright = fillleft + step

End If

Next reps

End Sub

5. Selanjutnya paste kan kode dibawah ini di sub kelas form_load dan form_Resize

Private Sub Form_Load()

Gradient Me, 900, 200, 100, 1

End Sub

Private Sub Form_Resize()

Gradient Me, 900, 200, 100, 1

End Sub

6. Jika ingin membuat efek gradasi pada objek lain, silahkan ganti kata “Me” menjadi nama objeknya (contoh PictureBox dengan nama Picture1)

Sub Form_Load()

Gradient Picture1, 900, 200, 100, 1

End Sub

Private Sub Form_Resize()

Gradient Picture1, 900, 200, 100, 1

End Sub

7. Silahkan di jalankan dengan menekan F5 atau tombol run

Catatan :

*) jika anda ingin mengganti warna gradasinya, ubah nilai RGB pada kedua kode Gradient Me, 900, 200, 100, 1 sesuai dengan warna gradasi yang anda inginkan

*) untuk mengganti susunan warna gradasi, ubah nilai 1 pada kedua kode Gradient Me, 900, 200, 100, 1 dengan angka berikut :

# 1 : urutan susunan gradasi dari atas form

# 2 : urutan susunan gradasi dari bawah form

# 3 : urutan susunan gradasi dari kiri form

# 4 : urutan susunan gradasi dari kanan form

Hasilnya :