Scroll text visual basic

Untuk kalian yang ingin design animasi pada visual basic, ini ada animasi text berjalan atau scrolling text. Mungkin kalian biasa lihat seperti di form about atau di form lainnya.
Gimana cara buat scrolling text di visual basic??
Cara pertama ada yang menggunakan manual yang membutuhkan satu komponen timer. Tapi kali ini yang akan saya bahas adalah file .ocx khusus untuk membuat animasi scrooling text.
Lebih mudah dan cepat daripada kalian buat secara manual dengan menggunakan timer.
Sample nya :

Untuk listing nya :

1. Private Sub Command1_Click()  
2. 'memulai scroll  
3. scroltext1.scrolstart  
4. End Sub  
5.   
6. Private Sub Command2_Click()  
7. 'menghentikan scroll  
8. scroltext1.scrolstop  
9. End Sub  
10.   
11. Private Sub Form_Load()  
12. scroltext1.scrolstart  
13. cap = "Contoh text 1" & vbCrLf  
14. cap = cap & "Contoh text 2" & vbCrLf  
15. cap = cap & "Contoh text 3"  
16. scroltext1.Caption = cap  
17. End Sub  

Baris listing diatas itu dari keseluruhan listing dari sample. Dimana dapat kalian lihat untuk animasi scrolling text dapat di mulai dan di hentikan secara manual.
Perhatikan listing berikut :

1. scroltext1.scrolstart 'untuk mulai scroll  
2.   
3. scroltext1.scrolstop 'untuk menghentikan scroll  

Lalu untuk menabahkan text yang mau di buat scroll ada pada listing berikut:

1. cap = "Contoh text 1" & vbCrLf 'vbCrLf perintah untuk pindah baris  
2. cap = cap & "Contoh text 2" & vbCrLf  
3. cap = cap & "Contoh text 3"  
4. scroltext1.Caption = cap  

Untuk Download sample project scrolling text link ada di tombol bawah ini:

 | Calon Programer

Semoga bermanfaat :)

---

Klik Like/share jika anda menyukai tulisan Share

    Syarat Tukar Link/Banner      Blog anda terdaftar di Search Engine dan halaman tukar link anda terindeks di Google.      Terdaftar      Terdapat meta tag search engine pada template.      Terindeks      Halaman blog muncul pada hasil pencarian Google...  

---