Minggu, 09 Oktober 2011

MEMBUAT LABEL BERKEDIP

kali ini saya ingin men-share trik membuat label di program vb berkedip - kedip.kodenya cukup simpel hanya membutuhkan satu buah timer saja.
nilai interval timer dapat sobat blogger atur sesukanya, yang harus diingat semakin besar nilai interval maka kecepatan berkedip semakin lambat, begitu juga sebaliknya.
contoh screenshot program sederhananya:

                                                     berikut codenya sangat sederhana

========================================================================
Private Sub Form_Load()
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
On Error Resume Next
If Label1.Visible = True Then
Label1.Visible = False
ElseIf Label1.Visible = False Then
Label1.Visible = True
End If
End Sub
=========================================================================
semoga bermanfaat........  :D

Tidak ada komentar:

Posting Komentar