Membuat Text berjalan pada Status Bar di VB 6.0

Buat Projek baru, lalu tambahkan komponen Microsoft Windows Common Control 5.0 (SP2)

Lalu beri komponen timer dan komponen status bar pada form.

Klik View Code Dan Ketikan Coding Seperti Dibawah Ini:

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

Program ini dibuat oleh Heri Afrizal di bireuen

http://hery-pc.blogspot.com