Membuat Animasi Running Text (teks berjalan) Pada VB6.0

Pada postingan kali ini saya akan memberikan trik mebuat Running text (teks berjalan) pada Visual Basic 6.0 . Cukup simple tapi pasti berguna untuk mempercantik tampilan aplikasi yang akan Anda buat.

 Berikut adalah langkah-langkah yang harus anda lakukan :

1)      Pertama bukalah program Visual Basic Anda.

2)      Tambahkan komponen-komponen ke dalam form sebagai berikut: 1buah Label, 1buah textbox, 1buah command button & sebuah timer. Gambar di bawah adalah ilustrasinya .

3)      Atur property masing-masing komponen sebagai berikut :

4)      Klik ganda pada komponen timer, lalu tambahkan perintah di bawah ini.

Private Sub Timer1_Timer()

Dim s As String

s = Text1.Text

If Text1.Text <> "" Then

s = Mid(s, 2, Len(s) - 1) & Left(s, 1)

End If

Text1.Text = s

End Sub

4)      Klik ganda pada komponen CommandButton(Command1), lalu tambahkan perintah di bawah ini pada event Command1 Click.

Private Sub Command1_Click()

If Text1.Text = "" Then

MsgBox "Masukan Karakter", vbInformation, "Information"

s = ""

End If

If Command1.Caption = "Start" Then

                        Timer1.Enabled = True

                         Command1.Caption = "Stop"

ElseIf Command1.Caption = "Stop" Then

                        Timer1.Enabled = False

                        Command1.Caption = "Start"

End If

End Sub

Buktikan Sendiri hasilnya Oke.. ^_^