Cara Membuat LABEL/TULISAN Berjalan-Jalan dalam VB 6
Langkah pertama buat form baru..
Pilih Label Dan Tulis AKU SAYANG KAMU..
Setelah itu Pilih
Timer.. atur intervalnya 100 (bebas,
semakin dikit semakin asik)
Tulis ini Kedalam Listing ;
Private Sub Timer1_Timer()
If Label1.Left >
Form1.Width Then
Label1.Left = -Label1.Width
Else
Label1.Left = Label1.Left
+ 200
End If
End Sub
Seru bukan.. AKU SAYANG KAMU will continue to run in your heart,,
hingga aku
mati..
Yuk terus di perdala...
Cara Membuat Form Loading dalam VB 6
Langkah pertama buat form baru..
Lalu klik kanan pada ToolBox.. Klik Components.. Pilih
Microsoft Windows Common Control 6.0(SP6).. Ceklist and OK..
Setelah itu muncul tambahan icon pada ToolBox..
1.
Pilih ProgressBar, tentukan sendiri ukurannya..
Lalu diklik kanan – properties – Ubah OLEDropMode menjadi 1-ccOLEDropManual
Untuk menjadi halus ubah Scrolling
mnjadi 1-ccScrollingSmooth
2. Klik Timer
Pilih interval 100 pada properties
Tulis dalam listing;
Private Sub Timer1_Timer()
If...
Langganan:
Postingan (Atom)