Selasa, 02 Agustus 2011

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 pemeriksaan
End Sub