Program Visual Basic: Membuat Teks Berjalan dengan Label di Visual Basic

Sekarang saya akan share tentang cara membuat Teks Berjalan dengan Visual Basic, coding Program ini saya dapatkan di listingprogram.blogspot.com,


Program selengkapnya bisa di download di sini

Cara Membuat:
1. Kita buka program visual basic 6.0 - standart exe

2. Kita buad 2 label, biarkan saja (name)nya label1 dan label 2 dan tambahkan 1 timer dengan interval 1000 pada properties timer.

3. seperti gambar di bawah ini:

atau sesuai dengan selera dan kreasi anda sendiri, atur di properties label dan form untuk mengubah warna dan bentuk font.

4. untuk coding copy-paste coding di bawah ini untuk coding timer:

Private Sub Timer1_Timer()
s$ = Label1.Caption
s$ = Right$(s$, 1) & Mid$(s$, 1, Len(s$) - 1)
Label1.Caption = s$

s$ = Label2.Caption
s$ = Mid$(s$, 2, Len(s$)) & Left$(s$, 1)
Label2.Caption = s$
End Sub

Kemudian jalankan!
dan teks akan bergerak, label1 teks akan bergerak dari kiri ke kanan, sedangkan pada label2 teks akan berjalan dari kanan ke kiri.

Program selengkapnya bisa di download di sini


sumber:
http://listingprogram.blogspot.com/2010/01/visual-basic-membuat-teks-berjalan.html