berikut langkah-langkahnya:
1. Buat New Project, Standard EXE
2. Masukan 1 buah label dan 1 buah Timer,
3. Ganti Caption label1 menjadi "SAYA YANG MENGATUR WARNA TEKS INI"
4. Set Interval Timer1 menjadi 1000 dan Enabled=True
5. Masukan kode berikut ini:
Private Sub Timer1_Timer()
If Label1.ForeColor = vbRed Then
Label1.ForeColor = vbGreen
ElseIf Label1.ForeColor = vbGreen Then
Label1.ForeColor = vbBlue
Else
Label1.ForeColor = vbRed
End If
End Sub
6. Jalankan programnya!!
keterangan :
Logikanya seperti ini
- 'jika warna teks merah maka
- 'teks berwarna hijau
- 'teks berwarna hijau
- 'jika warna teks hijau maka
- 'teks berwarna biru
- 'selain itu(jika tdk berwarna merah/hijau)
- 'teks akan berwarna merah lagi dan terus berulang-ulang selama timer berjalan
berikut code warna dasar dalam visual basic yang bisa digunakan untuk referensi
Constant
|
Description
|
vbBlack
|
Black
|
vbRed
|
Red
|
vbGreen
|
Green
|
vbYellow
|
Yellow
|
vbBlue
|
Blue
|
vbMagenta
|
Magenta
|
vbCyan
|
Cyan
|
vbWhite
|
White
|
Silahkan Baca Juga :
Thanks for reading Membuat Teks Berubah Warna bag.ll di Visual Basic
mantap gank hasilnya. makasih ya mMn
ReplyDelete