CONTOH KODING UNTUK TEXT BERJALAN PADA FORM VBNET 2010

untuk membuat text bergerak pada form dalam VB NET 2010 caranya cukup mudah,  pada form load ketikkan beberapa baris source coding yang diperlukan.  untuk lebih jelasnya SILAHKAN COPAS Koding dibawah ini kedalam projek teman-teman :


TEXT BERJALAN
========================================================================

DI FORMLOAD
=================

tulisan(0) = "JUDUL"
        tulisan(1) = "JUDUL"
        tulisan(2) = "JUDUL"
        Label1.Text = tulisan(j)
        Timer2.Start()


DI TIMEPICKER
==============

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

========================================================================
Semoga Bermanfaat.....   :)  Notice bila ada keterangan kurang jelas silahkan berikan komentar agar bisa kita diskusikan bersama.... trims :)

 By Leo Bahana Batubara, S.Kom