Cara Membuat Animasi Teks Berjalan di VB 6.0

Pada kesempatan kali ini saya akan berbagi tutorial tentang Cara Membuat Animasi Text Berjalan di VB 6.0 lebih tepatnya berjalan dari kanan ke kiri di Status Bar.  Jadi, aplikasi yang kita buat akan semakin menarik tampilannya berkat adanya animasi teks berjalan.

Namun sebelum kita lanjut ke tutorialnya, pastikan kalian sudah paham tentang Cara Membuat Status Bar di VB 6.0. Jika sudah sekarang langsung saja kita buat dan caranya sebagai berikut :

Cara Membuat Animasi Text Berjalan di VB 6.0

Langkah 1
Silahkan kalian buat sebuah project baru, lalu tambahkan komponen Timer dan Statusbar di Form, kemudian desain hingga tampilannya seperti ini :

Cara Membuat Animasi Text Berjalan di VB 6.0

Langkah 2
Setelah itu kita langsung masuk kebagian koding, pertama doubleklik pada area form yang kosong lalu isikan kode berikut :
Dim counter As Integer
Private Sub Form_Load()
counter = 0
Timer1.Interval = 50 'semakin tinggi nilainya semakin cepat
With StatusBar1
    .Panels(1).AutoSize = sbrSpring
    .Panels(1).Alignment = sbrRight
End With
End Sub

Public Function Tulisanberjalan(Hitung As Integer, strKalimat As String, Panjang As Integer)
If Hitung = Len(strKalimat) + Panjang Then
     Hitung = 0
ElseIf Hitung > Len(strKalimat) Then
    Tulisanberjalan = strKalimat & Space(Hitung - Len(strKalimat))
Else
    Tulisanberjalan = Mid(strKalimat, 1, Hitung)
End If
End Function
Kembali ke desain form, sekarang doubleklik pada objek Timer, lalu isikan kode berikut ini :
Private Sub Timer1_Timer()
  Dim Kalimat As String
  Dim pnl As Panel
  Set pnl = StatusBar1.Panels(1)
      Kalimat = "www.jagovb.com"
      counter = counter + 1
      DoEvents
      pnl.Text = Tulisanberjalan(counter, Kalimat, 150)
End Sub
Langkah 3
Setelah semuannya sudah selesai, sekarang coba dijalankan projectnya dan hasilnya kurang lebih seperti ini :

Cara Membuat Animasi Text Berjalan di VB 6.0

Selesai...

Bagaimana? Mudah kan Cara Membuat Animasi Text Berjalan di VB 6.0, dengan begitu aplikasi yang kita akan lebih menarik jika terdapat animasi seperti diatas. Sekian tutorial kali ini, jika ada yang masih bingung, silahkan berkomentar. Terimakasih, semoga bermanfaat dan selamat belajar...

Download
via Google Drive

Belum ada Komentar untuk "Cara Membuat Animasi Teks Berjalan di VB 6.0"

Posting Komentar

Silahkan tuliskan komentar Kamu yang sesuai dengan isi topik postingan halaman ini. Please don't SPAM!

Iklan Atas Artikel

Iklan Tengah Artikel 1

Iklan Tengah Artikel 2

Iklan Bawah Artikel