Membuat Text Warna Berganti-Ganti di Visual Basic 6.0

Oleh Unknown

Wednesday, August 31, 2016

Bagikan :

Tweet

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 = vbGreenElseIf Label1.ForeColor = vbGreen Then

Label1.ForeColor = vbBlueElseLabel1.ForeColor = vbRedEnd If End Sub

6. Silahkan jalankan  deh 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

Silahkan berkreasi sendiri dengan menggunakan lebih dari 3 warna.. hehehe 

Tag : Tips N Trik, Visual Basic