Membuat Text berjalan pada VB.Net

Pada kesempatan kali ini saya akan berbagi tentang bagaimana membuat text berjalan pada VB.Net. Ikuti langkah-langkah berikut ini :

1. Klik Label pada toolbox.

      2. Lihat pada properties Label, kemudian cari yang namanya autosize ganti menjadi false. Lihat       pada label tersebut tampak terjadi perubahan bukan, fungsinya adalah untuk mengatur lebar dan panjang pada text. Atur sesuai text yang diinginkan.

     3. Klik Timer pada toolbox

Lihat pada properties Timer, cari Enabled ganti menjadi true kemudian cari Interval dan masukkan angka sesuai keinginan.

NB : angka interval menentukan kecepatan text  tersebut berjalan.

4. Kemudian tuliskan listing programnya seperti di bawah ini :

Public Class Form1

    Dim tulisan(2) 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(tulisan(j).Length) Then

            Me.Label1.Text = ""

            If j < tulisan.Length - 1 Then

                j = j + 1

                Me.Label1.Text = tulisan(j)

            Else

                j = 0

            End If

            i = 0

        End If

        Label1.Text = tulisan(j).Substring(0, i)

        i = i + 1

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        tulisan(0) = "sutiono19.wordpress.com"

        tulisan(1) = "sutiono19.wordpress.com"

        tulisan(2) = "sutiono19.wordpress.com"

        Label1.Text = tulisan(j)

        Timer1.Start()

    End Sub

End Class

NB : tulisan yang berwarna merah bisa diganti sesuai keinginan

5. Jalankan program (F5)

6. Bimsalabim…..jadi dech !!!!

Semoga bermanfaat……