Membuat Teks Berjalan Lurus di Visual Basic

Pernahkah Anda melihat tulisan yang berjalan di layar bagian bawah televisi Anda?? yang biasanya berisi Informasi atau Berita pada chanel televisi Anda. nahh.. Kali ini saya akan berbagi trik sederhana yang kasusnya sama seperti itu, yaitu membuat teks berjalan pada pemrograman visual basic, kita akan menggunakan bantuan Timer. jadi selama timer berjalan maka teksnya akan trus berjalan.

Baiklah langsung saja, ikuti Langkah-langkah berikut :

1. Buat New Project, Standard EXE

2. Masukan 1 buah Label dan 1 buah Timer

3. Atur properti Interval Timer1 menjadi 100 dan Enabled=True

4. Masukan kode Program berikut :

Private Sub Timer1_Timer()

Label1.Left = Label1.Left + 100

End Sub

5. Jalankan programnya !! Lihat yang terjadi !! 

pada code diatas, Label1 akan berjalan terus ke kanan tanpa berhenti meskipun sudah melewati batas lebar form,  dan saya pastikan Label1 kesayangan anda tidak akan pernah kembali lagi. Hahaha.. sukurin :P

6. Oke Tenang dulu, kita akan mengembalikan sang Label1 ketika dia sudah melebihi lebar/width dari form ke posisi yang berlawanan..

7. Sekarang hapus kode yang di atas, dan ganti menjadi :

Private Sub Timer1_Timer()

If Label1.Left >= Form1.Width Then   

Label1.Left = -Label1.Width

Else   

Label1.Left = Label1.Left + 100

End If

End Sub

 8. Jalankan kembali programnya !! hmmm... Sekarang Label1 Anda sudah berjalan berulang-ulang,

Note:

• Jika Anda ingin membalik jalannya Teks ke arah kiri, ganti tanda "+" menjadi "-" pada baris kode:

 Label1.Left = Label1.Left + 100 

sehingga menjadi:

Label1.Left = Label1.Left - 100

• Jika Ingin mengganti jalannya teks dari atas ke bawah atau dari bawah ke atas, maka yang harus dilakukan adalah mengganti semua kata  "Left dengan Top" dan kata "Width dengan Height" 
• Lalu bagaimana kalau ingin membuat perjalanan Label1 menjadi bolak-balik atau maju mundur saja?? silahkan baca Lanjutannya di MEMBUAT TEKS BERJALAN BOLAK-BALIK :)

Silahkan Baca Juga :

• Tutorial dan Trik Visual Basic yang lainnya

Thanks for reading Membuat Teks Berjalan Lurus di Visual Basic