Animasi Teks Berjalan dengan VB .Net

Mungkin terkadang anda merasa bosan dengan tampilan desktop komputer anda yang itu-itu saja. Pada postingan kali ini, saya akan membantu anda untuk memperindah tampilan ddesktop komputer anda dengan karya anda sendiri yaitu membuat animasi Text Berjalan dengan VB. Net. Tanpa berbasa-basi, langsung saja masuk pada pembuatan Aplikasi.

Buka Visual Basic .Net kamu, terserah kamu mau yang 2002, 2005 atau 2008 asalkan bukan 2012.he...
Buat Project baru, ketikan nama projek sesuai kreatifitas kamu. Jika sudah, tambahkan berberapa objek.

Objek        Properti         Value
Label1       Text             Animasi
Timer1       Enabled          True
Interval         10
Timer2       Enabled          False
Interval         10

Atur juga :

Form         FormBorderStyle  None

Jika objek-objek iatas sudah ditambahkan, sekarang masuk ke Code Window (F7 /double klik pada form) dan ketikan atau Copy listing dibawah :

Public Class Form1
  Private Sub Form1_Load(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles MyBase.Load 
    
    'mengatur jarak form dari atas
    Me.Top = 0 

    'mengatur jarak form dari kiri 
    Me.Left = 0 

    'mengatur agar lebar form = lebar layar
    Me.Width = My.Computer.Screen.WorkingArea.Width 

    'mengatur tinggi form (dapat iubah sesuai selera) 
    Me.Height = 30 

    'posisi kiri awal label 
    Label1.Left = 0 

    'posisi atas awal label agar ditengah form 
    Label1.Top = (Me.Height - Label1.Height) / 2 
End Sub

  Private Sub Timer1_Tick(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Timer1.Tick 

    Label1.Left = Label1.Left + 1
    If Label1.Left >= Me.Width - Label1.Width Then
      Timer1.Enabled = False
      Timer2.Enabled = True
    End If
  End Sub

  Private Sub Timer2_Tick(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Timer2.Tick 

   Label1.Left = Label1.Left - 1
    If Label1.Left <= 0 Then
      Timer1.Enabled = True
      Timer2.Enabled = False
    End If
  End Sub
End Class

Demikian tutorial sederhana untuk membuat Animasi Teks Berjalan dengan VB .Net, kamu juga bisa mengembangkan aplikasi diatas sesuai selera dan keratifitas kamu.