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
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
Timer1.Enabled = True
textimaniawan.Left = "4500"
End If
End Sub
Semoga Bermanfaat
This post first appeared on IMANIAWAN.ID | SEO MARKETING | WEB DEVELOPER, please read the originial post: here
