Membuat text berjalan dengan vb.net 2008

Pada kesempatan kali ini saya akan berbagi tentang bagaimana membuat teks berjalan pada VB.Net, Membuat tulisan / teks berjalan di vb.net sangatlah mudah, anda hanya memerlukan komponen Timer dan Label. Daripada repot – repot langsung saja saya kasih source code teks berjalan pada vb.net 2008 nya aja ya biar anda langsung mengerti programnya.

Ok langsung saja tutorial membuat teks berjalan pada VB.Net :

    Langsung saja buka Microsoft Visual Studio anda.
    Muncul “Form1”, masukkan Label dan Timer yang terdapat di ToolBox dengan cara double klik ToolBox yang dipilih.
    Ubah Propertiesnya seperti ini :

Nama Control         Properties              Nilai
Label1                    Text                 Text Berjalan
                               Name               Label1
                               Autosize           False
Timer1                    Interval             200

.  Setelah itu masukkan kode berikut 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) = ” mencoba ”
        tulisan(1) = ” mencoba ”
        tulisan(2) = ” mencoba ”
        Label1.Text = tulisan(j)
        Timer1.Start()
     End Sub
 End Class




  Setelah itu klik “Start Debugging (F5)” Dan lihat apa yang terjadi..
Selamat Mencoba :D