Membuat Efek Marquee (Text Berjalan) Dengan Visual Basic 6.0

Membuat Efek Marquee (Text Berjalan) Dengan Visual Basic 6.0 | Visual Basic Magazine - Apa kabar sobat...??, kali ini saya akan membagikan lagi sedikit ilmu pemrogran Visual Basic 6.0. Kali ini kita akan membuat efek marquee untuk memperindah tampilan form.

Sama seperti di halaman web, efek marquee juga bisa kita buat pada form project VB 6.0, cuma beda scriptnya aja koq, kalo di webkan pake HTML, klo di VB kita pake fungsi Timer.

Silakan sobat ikuti langkah berikut untuk uji coba :

• Tambahkan 1 buah Label dan satu buah buah Timer di form.
• Ubah caption Label tersebut melalui kotak properties dengan kalimat "Membuat Efek Marquee Dengan Visual Basic 6.0"
• Atur interval timer menjadi 30

•  Kemudian double klik pada Timer1 dan masukkan script berikut :

If (Label1.Left + Label1.Width) <= 0 Then Label1.Left = Me.Width End If Label1.Left = Label1.Left - 25

• Silakan sobat running, jika berhasil maka tulisan "Membuat Efek Marquee Dengan Visual Basic 6.0" akan bergerak dari kanak ke kiri.

Selanjutnya kita akan membuat efek marquee pada judul form, berikut langkah-langkahnya :

• Tambahkan satu buah Timer lagi di form
• Ubah interval Timer tersebut melalui kotak properties menjadi 300.

• Kemudian masukkan script berikut ini pada bagian coding :

Dim judul As String Private Sub Form_Load() judul = " Belajar Visual Basic 6.0 " Me.Caption = judul End Sub Private Sub Timer2_Timer() X = Left(judul, 1) Y = Len(judul) z = Right(judul, Y - 1) judul = z + X Me.Caption = judul End Sub

Untuk lebih memahaminya silakan sobat coba utak atik sendiri dengan kreasi sobat. Dan sobat bisa download contoh program ini pada link berikut ini :

Sekian dulu tutorial Visual Basic 6.0 yang berjudul Membuat Efek Marquee (Text Berjalan) Dengan Visual Basic 6.0 Selamat mencoba dan semoga bermanfaat.

Salam...