Mengubah Background Form Menjadi Warna Gradient

Berbeda dengan tutorial lainya, kali ini saya akan membagikan sebuah tips untuk mempercantik / indah tampilan sebuah program visual basic, yaitu dengan mengubah warna background form dengan warna gradient, sebelumnya, apakah anda tahu apa itu Warna Gradient ?,

Warna Gradient adalah perpaduan sebuah warna, di mana di garis pertemuan warna tersebut akan di degradasi / di biaskan, sehingga ke 2 warna tersebut akan terlihat menyatu, berikut gambarnya :

Warna Non Gradient

Warna Dengan Gradient

Baiklah jika anda sudah mengerti, ayo kita mulai :

1. Pertama Jalankan VB dengan project standar exe
2. Di sini saya mempunyai 2 cara untuk membuat warna gradient di form, cara pertama :
- Untuk cara pertama, anda hanya menuliskan script berikut ini :

Private Sub Form_Load()
Me.AutoRedraw = True
For BluesPedia = 0 To ScaleHeight
Line (1, BluesPedia)-(ScaleWidth, BluesPedia), RGB(200, 150, 255 - (BluesPedia * 255) \ ScaleHeight)
Next BluesPedia
End Sub

Jika sudah, jalankan program

- Untuk cara ke dua, sedikit ribet dan banyak scriptnya, berikut caranya :

3. Tambahkan module, lalu tuliskan script berikut :

Sub BluesPedia(TheObject As Object, ByVal byMerah As Long, ByVal Hijau As Long, ByVal Biru As Long, ByVal Pedia As Integer)
Dim Blues As Integer, reps As Integer, Atas As Integer
Dim Kiri, Kanan, Bawah As Integer

If Pedia < 1 Or Pedia > 4 Then Pedia = 1
 Atas = 0
 Kiri = 0
If Pedia < 3 Then
 Blues = (TheObject.Height / 100)
If Pedia = 2 Then Atas = TheObject.Height - Blues
 Bawah = Atas + Blues
 Kanan = TheObject.Width
Else
 Blues = (TheObject.Width / 100)
If Pedia = 4 Then Kiri = TheObject.Width - Blues
 Kanan = Atas + Blues
 Bawah = TheObject.Width
End If
For reps = 1 To 100
If Pedia = 2 And reps = 100 Then Atas = 0
If Pedia = 4 And reps = 100 Then Kiri = 0
 Merah = Merah - 3
 Hijau = Hijau - 3
 Biru = Biru - 3
If Merah <= 0 Then Merah = 0
If Hijau <= 0 Then Hijau = 0
If Biru <= 0 Then Biru = 0
TheObject.Line (Kiri, Atas)-(Kanan, Bawah), RGB(Merah, Hijau, Biru), BF
If Pedia < 3 Then
If Pedia = 1 Then
 Atas = Bawah
 Else
 Atas = Atas - Blues
 End If
 Bawah = Atas + Blues
Else
 If Pedia = 3 Then
 Kiri = Kanan
 Else
 Atas = Kiri - Blues
 End If
 Kanan = Kiri + Blues
End If
Next reps
End Sub



4. Kembali ke form, tuliskan script berikut, sehingga keseluruhannya seperti ini :

Private Sub Form_Load()
BluesPedia Me, 900, 200, 100, 1
End Sub

Private Sub Form_Resize()
BluesPedia Me, 900, 200, 100, 1
End Sub

5. Jika sudah jalankan program

Posisi warna gradient dengann kode 1

Posisi warna gradient dengann kode 2

Kode 1 pada sub Form_Load adalah kode untuk posisi warna secara horizontal, anda bisa mengubahnya dengan kode 2 (kebalikan dari kode 1), 3 dan 4 membuat posisi warna menjadi vertikal, Jika kode 1 memiliki warna hijau hitam maka kode 2 memiliki warna hitam hijau.

Sekian Tutorial kali ini semoga bermanfaat