- Buat Project baru Standart Exe
- Tambahkan 1 buah Control Timer (Timer1) Property yang diset :
Enable = True, Interval = 100
- Satu Buah Control Label (Label1)
Ketik Coding dibawah ini pada Form Project
Dim Pos As Integer, StartPos As Integer, Lengh As Integer, iTeks As Integer
Dim MyTeks As String
Private Sub Form_Load()
iTeks = 1
End Sub
Private Sub Timer1_Timer()
Pos = Pos + 1
If iTeks = 1 Then
MyTeks = "Ini adalah Contoh"
ElseIf iTeks = 2 Then
MyTeks = "Pembuatan Label Berjalan"
ElseIf iTeks = 3 Then
MyTeks = "Dengan menggunakan Visual Basic 6"
End If
StartPos = Len(MyTeks)
Lengh = StartPos - Pos
If Lengh = 0 Then
If iTeks = 1 Then
iTeks = 2
ElseIf iTeks = 2 Then
iTeks = 3
ElseIf iTeks = 3 Then
iTeks = 1
End If
Pos = 0 - StartPos
End If
Label1 = Right(MyTeks, Lengh)
End Sub
Download coding
Mudahkan gak ribet , Sekarang Coba sobat jalan kan Project nya (Tekan F5) Caption pada label1 akan bergerak dan tulisannya bergantian.
Mudah-mudahan ada mamfaat nya bagi sobat-sobat semua, dan khusus pada bagi saya yang masi belajar.
Terimakasih sebelumnya buat sobat-sobat yang sudah bersedia memberikan komentarnya.
hahahah... cara nya beda sam guah tapi boleh di coba hahah tanks
ReplyDelete