Cara Membuat Animasi Text Berjalan di VB.NET

Jika sebelumnya saya sudah buatkan tutorial tentang Cara Membuat Animasi Teks Berjalan dengan VB 6.0, sekarang kita akan membuat tutorial yang sama cuman kali ini menggunakan VB.NET. Animasi teks berjalan ini gunannya untuk mempercantik tampilan aplikasi yang kita buat agar terkesan menarik saat dipandang.

Untuk cara membuatnya terbilang sangat mudah, dan langkah-langkahnya yaitu sebagai berikut :

Cara Membuat Animasi Text Berjalan di VB.NET

Langkah 1
Buatlah sebuah project baru, kemudian tambahkan komponen Timer dan Label ke dalam form, lalu desain hingga seperti ini misalnya :

Cara Membuat Animasi Text Berjalan di VB.NET

Langkah 2
OK, sekarang kita masuk kebagian kodingnya, pertama kalian klik dua kali pada area form kosong, kemudian isi kodenya seperti ini :
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
     Timer1.Enabled = True
     teks(0) = " SELAMAT DATANG DI JAGOVB.COM  "
     Label1.Text = teks(j)
End Sub
Langkah 3
Selanjutnya kembali ke desain form, sekarang klik dua kali pada objek Timer lalu masukkan kode berikut :
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
     If i.Equals(teks(j).Length) Then
        Me.Label1.Text = ""
        If j < teks.Length - 1 Then
            j = j + 1
            Me.Label1.Text = teks(j)
     Else
            j = 0
        End If
        i = 0
     End If
     Label1.Text = teks(j).Substring(0, i)
     i = i + 1
End Sub
Sehingga kode lengkapnya seperti ini :
Public Class Form1
    Dim teks(0) As String
    Dim i, j As Integer

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If i.Equals(teks(j).Length) Then
            Me.Label1.Text = ""
            If j < teks.Length - 1 Then
                j = j + 1
                Me.Label1.Text = teks(j)
            Else
                j = 0
            End If
            i = 0
        End If
        Label1.Text = teks(j).Substring(0, i)
        i = i + 1
    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Timer1.Enabled = True
        teks(0) = " SELAMAT DATANG DI JAGOVB.COM  "
        Label1.Text = teks(j)
    End Sub
End Class
Langkah Terakhir
Sekarang jalankan projectnya dengan cara tekan F5 pada keyboard, maka jadinya akan seperti ini hasilnya :

Cara Membuat Animasi Text Berjalan di VB.NET

Ternyata mudah sekali kan Cara Membuat Animasi Text Berjalan di VB.NET, sekarang giliran kamu untuk mencobanya. Seperti biasa jika ada kendala/error saat mencobanya, jangan sungkan untuk berkomentar di bawah ini ya...Terimakasi dan semoga bermanfaat...:)

Link Download
via Google Drive

Belum ada Komentar untuk "Cara Membuat Animasi Text Berjalan di VB.NET"

Posting Komentar

Silahkan tuliskan komentar Kamu yang sesuai dengan isi topik postingan halaman ini. Please don't SPAM!

Iklan Atas Artikel

Iklan Tengah Artikel 1

Iklan Tengah Artikel 2

Iklan Bawah Artikel