Visual Basic: Membuat Teks/Label Berjalan Pada Form

Untuk membuat animasi text atau dalam hal ini adalah teks berjalan, kalian tepat sekali berkunjung ke IMANIAWAN.ID. Langsung saja ya, di bawah ini contoh form sederhana untuk membuat teks berjalan:

Catatan: 

-Tambahkan satu komponen label pada form, lalu rubah properties namenya menjadi => textimaniawan

-Tambahkan 1 buah komponen timer. Rubah properties interval pada komponen timer menjadi => 100. 

Silahkan praktekkan cara di bawah tinggal pilih saja mau yang berjalan ke atas, bawah, kanan ataupun kiri.

1. Teks Berjalan Ke Atas

Private Sub Timer1_Timer()

textimaniawan.Top = textimaniawan.Top - 100

If textimaniawan.Top <= 0 Then

Timer1.Enabled = True

textimaniawan.Top = "3000"

End If

End Sub

2. Teks Berjalan Ke Bawah 

Private Sub Timer1_Timer()

textimaniawan.Top = textimaniawan.Top + 100

If textimaniawan.Top >= 3000 Then

Timer1.Enabled = True

textimaniawan.Top = "-3000"

End If

End Sub

3. Teks Berjalan Ke Kanan

Private Sub Timer1_Timer()

textimaniawan.Left = textimaniawan.Left + 100

If textimaniawan.Left >= 4500 Then

Timer1.Enabled = True

textimaniawan.Left = "-4500"

End If

End Sub

4. Teks Berjalan Ke Kiri

Private Sub Timer1_Timer()

textimaniawan.Left = textimaniawan.Left - 100

If textimaniawan.Left <= -4500 Then

Timer1.Enabled = True

textimaniawan.Left = "4500"

End If

End Sub

Semoga Bermanfaat