Text Berjalan (2)

Text berjalan merupakan fariasi dalam suatu program. banyak sekali model text berjalan. Cukup menggunakan aplikasi Visual Basic, kamubisa membuat text berjalan dengan berbagai macam bentuknya. Kali ini saya akan memberikan kode text berjalan dengan model naik turun.

Langsung aja yachhhh...!

1. Buat suatu project dengan satu form.
2. Tambahkan kontrol berikut pada formnya : Timer dan Label.
3. Ubah property Timer dengan Intervel=10

Ketikkan kode dibawah ini pada form.

Private Sub Timer1_Timer()
Static Atas As Boolean
Label1.Top=Label1.Top + IIf(Atas, -50, 50)
If Label1.Top<0 atas =" False"> me.Height - Label1.Height - 300 Then
Atas = True
End If
End Sub

4. Simpan Project dan Form tersebut.
5. Coba kamu liat hasilnya. Jalankan promram tersebut. Asyiiik kan.......!

Angka yang berwarna biru bisa kamu rubah sesuai dengan keinginan kamu...!

Selamat Mencoba...!