Home » » Buat label berjalan di Visual Basic 6.0

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.



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!


.

0 komentar:

Post a Comment

Banyak Yang Baca

Followers