Saya Membuat Tutorial Bagaimana Membuat Text Dapat Berkedip-Kedip Pada Pemograman Visual Basic.NET



Requirements :
1 Label
Properties :
Name : lblMessage
ForeColor : Black
Text : Congratulations , You Win The 1st Prize...

1 Timer
Properties :
Name: tmrBlink

1 GroupBox
Properties :
Text : “”

2 Button

Button1 Properties :
Name : btnStart
Text : Start Blinking

Button2 Properties :
Name : btnStop
Text : Stop Blinking

Berikut Source Code Nya :

Public Class frmmain



 Private Sub btnStart_Click(sender As System.Object, e As System.EventArgs) Handles btnStart.Click

 'Start The Timer and The Timer Function Will Execute Here

 tmrBlink.Start()

 End Sub



 Private Sub btnStop_Click(sender As System.Object, e As System.EventArgs) Handles btnStop.Click

 ' Stop The Timer Function

 tmrBlink.Stop()

 End Sub



 Private Sub tmrBlink_Tick(sender As System.Object, e As System.EventArgs) Handles tmrBlink.Tick

 ' You Can Modify The Color and Add More Color Just Add More ElseIf Here

 If lblMessage.ForeColor = Color.Black Then

 lblMessage.ForeColor = Color.Red

 ElseIf lblMessage.ForeColor = Color.Red Then

 lblMessage.ForeColor = Color.Black

 End If

 End Sub



End Class