Animasi Teks VB.NET

Untuk memperindah tampilan aplikasi, biasanya kita menambahkan animasi, baik berupa gambar maupun teks. Saat ini kita akan bahas coding untuk membuat animasi teks seperti sebuah kalimat diketik. Animasi tersebut bisa untuk Form Teks (Caption), label, textbox dsb.

Untuk contoh ini kita akan membuat animasi teks pada caption sebuah form dengan properti yang kita gunakan adalah Me.Text.

Tambahkan Form baru, isi Text property dengan teks yg anda inginkan. Misalnya "Teks ini sedang di ketik...". Lalu tambahkan sebuah Timer dengan property Enabled = True.

Lalu dobel klik pada Timer tesebut. Jendela Code akan tampil dan anda akan melihat blok program seperti dibawah ini :

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

Silahkan tambahkan tambahkan coding hingga tampak seperti dibawah ini :

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
      Dim strTeks As String = "Teks ini sedang di ketik..."
      If Me.Text <> strTeks Then
          Me.Text = Microsoft.VisualBasic.Left(strTeks, Len(Me.Text) + 1)
      Else
          Me.Text = ""
      End IF
End Sub

Run program ! Anda akan melihat caption pada form tersebut seperti diketik. Logika dari coding diatas sangat sederhana. berikut penjelasannya :

Dim strTeks As String = "Teks ini sedang di ketik..."

Variabel yang isinya akan ditampilakan di Me.Text

If Me.Text <> strTeks Then
    Me.Text = Microsoft.VisualBasic.Left(strTeks, Len(Me.Text) + 1)
Else
    Me.Text = ""
End IF

Caption Form akan diisi dengan strTeks selama Me.Text tidak sama dengan strTeks. Jika Me.Teks sama dengan strTeks maka akan dikosongkan. Semoga bermanfaat.