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:

 Visual Basic: Membuat Teks/Label Berjalan Pada Form

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



Bagikan :
+
Previous
Next Post »
0 Komentar untuk " Visual Basic: Membuat Teks/Label Berjalan Pada Form"

 
Back To Top