Mungkin anda nosan
dengan warna komponen Label yang
monoton?, Trik beriktu akan membuat warna komponen Label yang anda buat lebih menarik dan gaull…
1.
Buka program Visual Basic 6.0 dan
mulailah dengan form baru.
2.
Masukkan sebuah komponen Label dan Timer. Khusus pada komponen Timer,
ubahlah propertis Interval menjadi 25.
3.
Setelah itu klik ganda komponen Timer dan ketiklah perintah dibawah ini
pada prosedur Timer1_Timer.
|
1
2
3
4
5
|
Private
Sub Timer1_Timer()
Static A
A = A + 10: If
A > 500 Then A = 0
Label1.ForeColor
= RGB(0, Abs(A - 256), 0)
End Sub
|
Keterangan Kode
2-3
4
|
Mendeklarasikan
variabel A dan melakukan penambahan secara terus menerus variabel A dengan
nilai 10. Kemudian dibuat komdisi apabila nilai variabel A telah mencapai
lebih dari 500, maka nilai dari variabel A dikembalikan menjadi 0.
Mengubah
warna teks dari label1 berdasarkan warna RGB dan warna yang akan dimanipulasi
adalah warna biru.
|
4.
Untuk mencobanya silahkan tekan tombol F5 pada keyboard anda.
EmoticonEmoticon