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
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.
.
