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
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