0 Cara membuat Label / Tulisan Berjalan di Injector

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

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

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 

Tambahan ^
Untuk Membuat Text/Label Kedap Kedip,Ni Codenya:

Dim i As Long
Dim merah, hijau, biru As Integer
Private Sub Form_Load()
 i = 0     'Inisialisasi detik
 Timer1.Interval = 100   'Kalau 1000 biasanya lompat 1 detik
 Label1.Caption = "Contoh Label Kedap Kedip..."
End Sub
Private Sub Timer1_Timer()
 i = i + 1
 If i = 1000000 Then i = 0 'Supaya tdk overflow, dsb...
 merah = Int(255 * Rnd)    'Bangkitkan angka random untuk merah
 hijau = Int(255 * Rnd)    'Bangkitkan angka random untuk hijau
 biru = Int(255 * Rnd)     'Bangkitkan angka random untuk biru
 Label1.ForeColor = RGB(merah, hijau, biru)   'Campur tiga warna
 If i Mod 2 = 0 Then       'Jika counter habis dibagi 2
    Label1.Visible = True  'Tampilkan label
 Else                      'Jika counter tidak habis dibagi 2
    Label1.Visible = False 'Sembunyikan label
 End If                    'Akhir pemeriksaanEnd Sub 

Artikel Terkait :