Menampilkan Tulisan Berjalan di StatusBar Menggunakan VB 6.0


Assalamualaikum

Posting kali ini saya akan share bagaimana cara membuat tulisan berjalan di stat bar menggunakan VB 6.0 seperti gambar di atas, cukup simple tapi bisa kita implementasikan ke dalam program yang akan kita buat yang membutuhkan stat bar bergerak. Berikut step by stepnya di simak yah

1. Buat Project baru, di dalam form tambahkan objek timer & status bar (Microsoft Windows Common Controls 6.0 (SP2) ) desaign seperti gambar di bawah ini

2. Kalau sudah tuliskan coding di bawah ini

Dim Counter As Integer
Private Sub Form_Load()
  Counter = 0
  Timer1.Interval = 50  'Atur kecepatannya di sini
  With StatusBar1
    .Panels(1).Width = 7000 'atur lebar dari status barnya
    .Panels(1).Alignment = sbrRight
  End With
End Sub

Private Sub Timer1_Timer()
  Dim Kalimat As String
  Dim zka As Panel
  Set zka = StatusBar1.Panels(1)
      Kalimat = "Kunjungi Http://zkashare.wordpress.com"
      Counter = Counter + 1
      DoEvents
      zka.Text = TulisJalan(Counter, Kalimat, 150)
End Sub
'Membuat Fungsi dengan menggunakan operator string untuk di panggil di listing pada objek timer
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

Selesai kalau sudah tinggal di running atau tekan “f5” semoga bermanfaat ^-^

  1. Thanks mas bro informasinya…. semoga tambah sukses

    • khairul adha
    • March 19th, 2012

    sukron yee atas ilmunyee ….

  1. No trackbacks yet.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: