alexa-tracking

[VB.NET] Blinking Text

Main Content

1024
1024
KASKUS
51
244
https://www.kaskus.co.id/thread/5301f8353fcb178b248b45e0/vbnet-blinking-text
[VB.NET] Blinking Text
Saya Membuat Tutorial Bagaimana Membuat Text Dapat Berkedip-Kedip Pada Pemograman Visual Basic.NET

[VB.NET] Blinking Text


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 :
Code:
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
emoticon-Sundul Gan (S)emoticon-Sundul Gan (S)emoticon-Sundul Gan (S)
emoticon-Sundul Gan (S)emoticon-Sundul Gan (S)emoticon-Sundul Gan (S)
emoticon-Sundul Gan (S)emoticon-Sundul Gan (S)emoticon-Sundul Gan (S)
gan nyok dibikin 1 trit vbnye lagi, dibikin yang full index, hehe
Quote:


ayooo buat doonng emoticon-Malu (S)