Cara membuat teks berjalan di vb 2013

TEKS BERJALAN

 

Langkah 1 :
Ambil bahannya, : timer dan label

Langkah 2 :
Pada propertiesnya :

Langkah 3 :
Beri listing program pada timernya:

Private Sub Timer_Teks_Tick(sender As Object, e As EventArgs) Handles Timer_Teks.Tick

        If Label1.Left <= 471 Then

            Label1.Left = Label1.Left + 5

        Else

            Label1.Left = Label1.Left - 571

        End If

    End Sub

Keterangan :
+ 471 :

- 100 :

Langkah 4 :
Beri listing program pada formnya :

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

        Timer_Teks.Start()

    End Sub

  

Langkah 5 :
Tekan tombol F5 pada keyboard untuk menjalankannya


SEKIAN 

• Tweet
• Share
• Share
• Share
• Share

About Admin Salis - Informasi

Nama      : RACHMAN SALISTIANTO
Sekolah   : SMK N 2 KLATEN
Alamat    : KRAKITAN, BAYAT, KLATEN, SEMARANG (JAWA TENGAH), INDONESIA

Related Post