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
siniCara 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
sinisumber:
http://listingprogram.blogspot.com/2010/01/visual-basic-membuat-teks-berjalan.html