Buat label berjalan di Visual Basic 6.0

Mempercantik tampilan untuk aplikasi yang nanti nya akan dibuat adalah suatu keharusan. Membuat label berjalan adalah salah satu caranya, tulisan berjalan dapat dibuat dengan menggunakan sotware pemrograman berbasis visual, yaitu visual basic. Vb sendiri disini saya gunakan versi 6.0.

Nantinya text yang berada pada label akan bergerak secara vertical maupun horizantil. Marilah alangkah baiknya langsung saja di praktekkan.

Langkah - langkah :

1. Buka Visual Basic 6.0

2. Buat lah satu buah project, dengan memilih standar exe

3. Maka akan muncuk 1 buah form. Seperti ini

4. Letakkan 1 label, 2 command button, 2 timer diatas form.

Baca Juga : Cara buat Add Item Combobox

5. Kemudian, dobel klik pada form. Hapus seluruh kode yang ada.

6. Dan Copy paste code berikut :

Private Sub Command1_Click()

Timer1.Enabled = True

Timer2.Enabled = False

Timer1.Interval = 15

End Sub

Private Sub Command2_Click()

Timer2.Enabled = True

Timer1.Enabled = False

Timer2.Interval = 15

End Sub

Private Sub Form_Load()

Label1.Caption = "Selamat Datang"

Command1.Caption = "Horizontal"

Command2.Caption = "Vertical"

End Sub

Private Sub Timer1_Timer()

Label1.Left = Label1.Left - 15

If (Label1.Left <= -(Label1.Width)) Or (Label1.Left >= Me.ScaleWidth) Then Label1.Left = Me.ScaleWidth

End Sub

Private Sub Timer2_Timer()

Label1.Top = Label1.Top - 15

If (Label1.Top <= -(Label1.Height)) Or (Label1.Top >= Me.ScaleHeight) Then Label1.Top = Me.ScaleHeight

End Sub

7. Setelah selesai di paste, coba jalankan aplikasi nya.

Hasilnya akan seperti ini.

Sekian tutorial dari saya. Apabila ada yang kurang jelas, dapat meninggalkan komentar di kolom komentar. Terima Kasih!

.