Tulisan berjalan pada Visual Basic 6.0
:: Visual Basic
Halaman 1 dari 1
Tulisan berjalan pada Visual Basic 6.0
Mari kita belajar membuat tulisan yang bisa berjalan pada program Visual Basic 6.0. Komponen-lkomponen yang di perlukan adalah tool timer dan tool label..
Listing progam membuat tulisan berjalan :
Selamat mencoba !
Listing progam membuat tulisan berjalan :
- Spoiler:
- Private Sub Timer1_Timer()
Dim Kata As String
Kata = Me.LblJalan.Caption
If Left(Me.LblJalan.Caption, 1) = "P" Or Ulang = 1 Then
Kata = Right(Kata, 1) & Left(Kata, Len(Kata) - 1)
Ulang = 1
End If
If Right(Me.LblJalan.Caption, 1) = "0" Or Ulang = 0 Then
Kata = Right(Kata, Len(Kata) - 1) & Left(Kata, 1)
Ulang = 0
End If
Me.LblJalan.Caption = Kata
End Sub
Selamat mencoba !
Similar topics
» Tutorial membuat program trial pada Visual Basic
» Program Tambahan Visual Basic : Text Berkedip
» Membuat Efek Ledakan pada Form
» Program Tambahan Visual Basic : Text Berkedip
» Membuat Efek Ledakan pada Form
:: Visual Basic
Halaman 1 dari 1
Permissions in this forum:
Anda tidak dapat menjawab topik
|
|