PERHATIAN

Password semua file download:
"softbimantoro"

Jumat, 11 November 2011

Membuat Label Berjalan

Posted by b_agoy 09.46, under , | No comments


Kali ini kita akan belajar membuat label berjalan di form. Bahan-bahan yang harus disediakan adalah:
- 1 buah form
- 1 buah label
- 1 buah timer (Properti: Enabled = True dan Interval = 25)

Untuk cara membuatnya, simak langkah-langkah berikut:

VB 6.0
Ketikkan kode berikut pada Timer1_Timer:
Horizontal
Label1.Left = Label1.Left - 15
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


VB .NET

Ketikkan kode berikut pada Timer1_Tick:
Horizontal
Label1.Left = Label1.Left - 2
If (Label1.Left <= -(Label1.Width)) Or (Label1.Left >= Me.ClientRectangle.Width) Then Label1.Left = Me.ClientRectangle.Width

Vertikal
Label1.Top = Label1.Top - 2
If (Label1.Top <= -(Label1.Height)) Or (Label1.Top >= Me.ClientRectangle.Height) Then Label1.Top = Me.ClientRectangle.Height



DOWNLOAD PROJECT VB 6.0
DOWNLOAD PROJECT VB .NET

0 komentar:

Posting Komentar

Blog Archive

Arsip Blog