Text Berjalan pada VB6.0

Untuk mempercantik tampilan aplikasi yang kita bangun khususnya aplikasi yang dibuat menggunakan visual basic 6.0 kita memerlukan beberapa animasi. Disini kita akan membahas cara membuat text berjalan dengan menggunakan visual basic 6.0.

Langsung saja, kita akan membuat text berjalan dengan mengunakan sebuah objek label dan sebuah objek timer. Untuk pembuatannya kita buka vb6 lalu kita pilih form yang akan kita berikan text berjalan. Untuk mempermudah kita buat project baru dengan default form1. Disitu kita sisipkan satu buah label dan satu buah timer. Deasainnya kurang lebih seperti berikut:

Untuk label1 kita ubah captionnya dapa property sesuai dengan keinginan kita, contoh caption disini adalah "FORM VB6.0 Berbentuk Bulat" tanpa tanda kutip. Untuk Timer1 kita rubah nilai Interval pada propertynya menjadi 20. Setelah itu kita sisipkan listing berikut:

Private Sub Timer1_Timer()
        If (Label1.Left + Label1.Width) <= 0 Then
            Label1.Left = Me.Width
        End If
        Label1.Left = Label1.Left - 100
    End Sub

Jalankan program dengan menekan F5 dan text pada form tersebut akan berjalan.
Untuk merubah kecepatan berjalannya text tersebut ubahlah nilai dari interval Timer1 sesuai dengan keinginan.
Semoga bermanfaat.

Tweet