Membuat Tulisan Berkelip di Visual Basic

TM-Blog kali ini akan berbagi trik VB yaitu Cara Membuat Tulisan Berkelip di Visual Basic

Huruf berkelip ini sangat bagus dan keren untuk suatu program :)
dengan huruf berkelip ini sobat bisa memberi tulisan berkelip ke tulisan yang sobat anggap bagus untuk dibuat berkelip
cara ini sangan mudah jika sobat mengikuti langkah demi langkah , soalnya dulu saya diajari kalau gak ngikuti instruksi gak bisa berkedip alias gagal
langsung saja tnpa bosa basi berikut triknya :

1.Buka Visual Basic sobat
2.Buat label(tulisan) yang ingin sobat buat berkelip
3.Setelah sobat buat labelnya,edit properties dari label ini sepertiberikut

    Name : Berkelip
    Caption : Terserah sobat
    BackColor : Biru (jika tidak biru,tidak jalan karena tidak sama dengan script)
    BackStyle : 0-Transparent

4.Masukkan Timer (yang berganbar stopwatch) dan Ubah interval timer di properties menjadi 50
5.Masukkan script dibawah ini di bagian code bisa dengan klik menu View => Code

Dim Red, green, blue As Integer

Private Sub Timer1_Timer()
If blue <= 255 Then blue = blue + 50 Else blue = 0
green = green + 50
If green >= 255 Then green = 0
Red = Red + 50
If Red >= 255 Then
Red = 0
End If
Berkelip.ForeColor = Int(RGB(Red, green, blue))
Berkelip.Refresh
End Sub

6.Jalankan Aplikasi dengan menekan F5


Untuk contoh Software berkelip bisa didownload Disini
Password = rpl-yes

Semoga sukses sobat :)
Sekian dari TM-Blog semoga bermanfaat bagi sobat yang membaca dan mencobanya
Tinggalkan komentar untuk trik ini