Cara Membuat Form dengan Background Warna Gradiasi di VB6

Cara Membuat Form dengan Background Warna Gradiasi di VB6

Selamat datang kembali di TeknoTips.NET. TeknoTips.NET adalah media online Indonesia yang diluncurkan pada bulan Maret 2015. Kami berkomitmen menyajikan konten seputar teknologi yang berkualitas dan bermanfaat. Ulasan kami terdiri dari berbagai topik: pemrograman komputer & database, review produk, tutorial windows, linux, android, kumpulan source code & project program, referensi tugas akhir & skripsi, download ebook, game & software.

Pada kesempatan ini kita akan mengulas artikel yang berjudul : Cara Membuat Form dengan Background Warna Gradiasi di VB6.

Cara Membuat Form dengan Background Warna Gradiasi di VB6 - Pada pertemuan kali ini tip dan trik visual basic akan memberikan sebuah tip yang sangat menarik yaitu membuat form dengan background gradiasi warna. Bagi Anda yang belum pernah mencoba tip ini tidak ada salahnya Anda membuat di form Anda agar tampilan form Anda lebih menarik.

Dengan menambahkan sedikit kode, background dari form buatan Anda akan di hiasi dengan gradiasi warna sehingga tampak lebih indah dari form biasanya. Untuk membuat gradiasi warna ini diperlukan suatu fungsi yang bernama RGB atau kepanjangan dari RED GREEN BLUE yang berfungsi mengatur intensitas  warna merah, hijau dan biru.Berikut adalah contoh dari warna RGB dibawah ini:

RGB(255, 0, 0)

Kode diatas adalah contoh pengaturan intesitas warna merah tanpa campuran warna hijau dan biru.Perlu Anda ketahui bahwa angka 255 adalah angka untuk mendapatkan warna merah yang paling maksimum.
Bagi Anda yang penasaran bagaimana cara membuatnya perhatikan langkah-langkah berikut dibawah ini:

Cara Membuat Form dengan Background Gradiasi Warna di VB6

1. Buka Form Standar VB6 Anda
2. Buka jendela kode, lalu ketikan kode dibawah ini :

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

4.Setelah selesai mengetik kode simpan kode Anda dan jalankan program.Jika berjalan dengan benar
  maka hasilnya akan tampak pada gambar dibawah ini :
Form Gradiasi Warna

Bila Anda ingin Mendapatkan gradasi warna lain Anda bisa mencoba dengan kode dibewah 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


Private Sub Form_Activate()
Gradient Form2, 900, 200, 100, 1 'sesuaikan dengan form Anda
End Sub

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


Sekian tip Cara membuat form dengan Gradiasi Warna.Selamat mencoba ,semoga berhasil.
Untuk mendapat notifikasi setiap artikel terbaru, masukkan e-mail anda disini
Selanjutnya cek e-mail anda untuk verifikasi.

Silahkan tuliskan komentar relevan Anda dengan jelas dan sopan, sesuai dengan topik postingan tentang "" pada halaman dibawah ini.

0 Response to "Cara Membuat Form dengan Background Warna Gradiasi di VB6"

Post a Comment

Iklan Atas Artikel

Iklan Tengah Artikel 1

Iklan Tengah Artikel 2


Iklan Bawah Artikel