Buat Label Berjalan di VB6
Posted in category
Nih Gua Share cara buat Label berjalan di vb6
1. Sediakan 1 Buah Label dan 1 buah timer
2. Pada Timer Isikan Interval nya 20 atau berpa aja (makin sedikit interval makin cepat geraknya)
Kemudian Isikan Kode Berikut di Timer :
Horizontal :
Label1.Left = Label1.Left - 15
If (Label1.Left <= -(Label1.Width)) Or (Label1.Left >= Me.ScaleWidth) Then Label1.Left = Me.ScaleWidth
If (Label1.Left <= -(Label1.Width)) Or (Label1.Left >= Me.ScaleWidth) Then Label1.Left = Me.ScaleWidth
Vertikal :
Label1.Top = Label1.Top - 15
If (Label1.Top <= -(Label1.Height)) Or (Label1.Top >= Me.ScaleHeight) Then Label1.Top = Me.ScaleHeight
If (Label1.Top <= -(Label1.Height)) Or (Label1.Top >= Me.ScaleHeight) Then Label1.Top = Me.ScaleHeight
Selamat Mencoba... !!! :D
web communication Says:
4 Juni 2012 pukul 20.41
tq mas ilmunya sangat membantu :D