19 Januari 2009

Membuat huruf berjalan di Visual Basic.

Copy Paste kode dibawah ke jendela kode form Visual basic.

'++++++++++ Awal Kode ++++++++++++
'Kalimat Berjalan
' Dibutuhkan 1buah Timer dan 1 buah label

Private Sub Form_Load()
Label1.Caption = "Belajar Visual Basic, membuat huruf berjalan. "
Label1.AutoSize = True
Timer1.Enabled = True
Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
Jalan$ = Label1.Caption
Jalan$ = Mid$(Jalan$, 2, Len(Jalan$)) & Left$(Jalan$, 1)
Label1.Caption = Jalan$
End Sub

'+++++++++++++ Akhir Kode ++++++++++++++++

GoodLuck

Tidak ada komentar:

Posting Komentar

Tinggalkan pesan anda disini.