Cara membuat efek marque pada Picture Box VB.NET

1. Buat project baru seperti biasa
2. Lalu drag beberapa component pada toolbox
-3 Button
*Button1
beri text "ON" dan ganti BackColor pada properties menjadi hijau

*Button2
beri text "OFF" dan ganti BackColor pada properties menjad merah
*Button3
beri text "Ulangi" dan ganti BackColor pada properties menjadi kuning
-1 PictureBox , di properties pada bagian Image, cari gambar yang akan anda beri efek marquee disitu saya menggunakan gambar orang mengendarai motor.
-1 Timer dengan Interval 100

Sehingga Form1[Design] seperti berikut

Setelah itu beri kode Form1[Design] seusia eventnya, berikut codingan seluruh eventnya:
Public Class Form1
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If Me.PictureBox1.Location.X + PictureBox1.Width < 0 Then
            PictureBox1.Location = New Point(Me.Width, PictureBox1.Location.Y)
        Else
            PictureBox1.Location = New Point(PictureBox1.Location.X + 10, PictureBox1.Location.Y)
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Enabled = True
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Enabled = False
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        PictureBox1.Location = New Point(0, 0)
    End Sub
End Class

Terakhir coba anda jalankan aplikasi.

Link source code lengkap : Disini 

Deri Kokara

Author & Editor

Kenalkan saya Deri Komara, saya hanya seorang pelajar yang ingin membagi ilmu dengan para pencari ilmu di dunia fana ini.