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

Cara Membuat Label Berjalan Pada Injector

Topik sebelumnya Topik selanjutnya Go down

default Cara Membuat Label Berjalan Pada Injector

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

coba pada label1 bagian properties witdh nya digedein misal witdh 3975
atau drag aja label1 agak memanjang. kode text berjalan diatas bisa
cuman buat 1 kali jalan abis itu menghilang.

kalau mau yg text berjalan berulang pake ini yg simple , untuk text
isi sendiri di label1 caption pada property, jangan lupa kasih spasi
kalau ngga nyambung trus tuh text.

1. text label bergerak dari kiri ke kanan
Spoiler:
Private Sub timer4_Timer()
timer4.Interval = 200
Label1.Caption = Mid(Label1.Caption, 2, Len(Label1.Caption) - 1) + Mid(Label1.Caption, 1, 1)
End Sub



atau

2. text label bergerak dari kanan ke kiri
Spoiler:
Private Sub timer4_Timer()
timer4.Interval = 200
Label1.Caption = Mid(Label1.Caption, Len(Label1.Caption), 1) + Mid(Label1.Caption, 1, Len(Label1.Caption) - 1)
End Sub



Credit: rifqi36 @sukatoro

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