Cara Membuat Caption/Text StatusBar Berjalan (Marquee) VB6

Berikut ini adalah cara menampilkan tulisan berjalan (effect Marquee) di StatusBar di visual basic 6, untuk mempraktekannya siapkan :

1. Buat 1 Project baru dengan 1 Form dan 1 StatusBar.
2. Copy-kan coding berikut ke dalam editor form yang bertalian.

          Dim Counter As Integer

          Private Sub Form_Load()
            Counter = 0
            Timer1.Interval = 50  '<-- Atur kecepatannya di sini
            With StatusBar1
              .Panels(1).Width = 4000
              .Panels(1).Alignment = sbrRight
            End With
          End Sub

          Private Sub Timer1_Timer()
            Dim Kalimat As String
            Dim pnlX1 As Panel

            Set pnlX1 = StatusBar1.Panels(1)
                Kalimat = "Testing tulisan berjalan"
                Counter = Counter + 1
                DoEvents
                pnlX1.Text = TulisJalan(Counter, Kalimat, 150)

          End Sub

          Public Function TulisJalan(Hitung As Integer, _
                                     strKalimat As String, _
                                     Panjang As Integer)
            If Hitung = Len(strKalimat) + Panjang Then
               Hitung = 0
            ElseIf Hitung > Len(strKalimat) Then

               TulisJalan = strKalimat & Space(Hitung - Len(strKalimat))
            Else
               TulisJalan = Mid(strKalimat, 1, Hitung)
            End If
          End Function

Tags:

contoh program vb6, contoh fungsi di vb6, cara penggunaan fungsi vb, tutorial vb6, download tutorial vb6, vb6 tutorial download, dasar dasar vb6, belajar vb6, cara mudah belajar vb6, vb6 artikel download, vb6 blog, contoh program vb6, artikel vb6, semua tentang vb6, vb6 api, cara menggunakan module, cara menggunakan class module