Sky-Line
Forum | Sky-Line.N-Stars.org
Selamat Datang di FORUM Sky-Line.N-Stars.org
Bgi yg blm mendaftar klik pendaftaran/register
bgi yg sdh mendaftar klik login....

Terima kasih
By Admin Sky_Line

[Tutorial]Membuat Caption Form Berjalan

Topik sebelumnya Topik selanjutnya Go down

default [Tutorial]Membuat Caption Form Berjalan

Post by jambi21 on Fri Feb 11, 2011 7:51 pm

Yang diperlukan :
Visual Basic 6 (Portable Atau Installer)
1 Form
1 Timer (set interval = 200)

Source code pada Form :
Spoiler:
Dim teksJalan As String

Private Sub Form_Load()
teksJalan = "Teks ini berjalan pada caption Form. "
End Sub

Private Sub Timer1_Timer()
a = Left(teksJalan, 1)
c = Len(teksJalan)
b = Right(teksJalan, c - 1)
teksJalan = b + a
Form1.Caption = teksJalan
End Sub

Credit: Irman Firmansyah

Terimakasih.

jambi21

Jumlah posting : 7
Join date : 30.01.11

Lihat profil user

Kembali Ke Atas Go down

Topik sebelumnya Topik selanjutnya Kembali Ke Atas

- Similar topics

 
Permissions in this forum:
Anda tidak dapat menjawab topik