Cara Membuat Label Berkedip VB 6.0

8:30:00 AM
Pada Tutorial VB kali ini adalah membahas Cara Membuat Label Berkedip pada VB 6.0

Berikut langkahnya :
Buatlah Project VB 6.0 dengan menambahkan Timer dan Label pada Form1
Masukan Koding dibawah ini :
Dim i As Long
Dim merah, hijau, biru As Integer

Private Sub Form_Load()
   i = 0
   Timer1.Interval = 500
End Sub

Private Sub Timer1_Timer()
   i = i + 1
   If i = 1000000 Then i = 0
   merah = Int(255 * Rnd)
   hijau = Int(255 * Rnd)
   biru = Int(255 * Rnd)
   Label1.ForeColor = RGB(merah, hijau, biru)
   If i Mod 2 = 0 Then
      Label1.Visible = True
   Else
      Label1.Visible = False
   End If
End Sub

Silahkan Run Project VB 6.0 anda

Salam,
BelajarVB.com

Artikel Terkait

Next Article
« Prev Post
Previous Article
Next Post »
Penulisan markup di komentar
  • Untuk menulis huruf bold silahkan gunakan <strong></strong> atau <b></b>.
  • Untuk menulis huruf italic silahkan gunakan <em></em> atau <i></i>.
  • Untuk menulis huruf underline silahkan gunakan <u></u>.
  • Untuk menulis huruf strikethrought silahkan gunakan <strike></strike>.
  • Untuk menulis kode HTML silahkan gunakan <code></code> atau <pre></pre> atau <pre><code></code></pre>, dan silahkan parse dulu kodenya pada kotak parser di bawah ini.
Konversi Code
Disqus
Silahkan Berkomentar Dengan