0 Cara membuat Label / Tulisan Berjalan di Injector|Wawan FCD

Cara membuat Label / Tulisan Berjalan di Injector|Wawan FCD:

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 

Ditulis Oleh : Unknown ~ Tips dan Trik Blogspot

Sobat sedang membaca artikel tentang Cara membuat Label / Tulisan Berjalan di Injector|Wawan FCD. Oleh Admin, Sobat diperbolehkan mengcopy paste atau menyebar-luaskan artikel ini, namun jangan lupa untuk meletakkan link dibawah ini sebagai sumbernya <a href="http://kans-sas.blogspot.com/2012/01/cara-membuat-label-tulisan-berjalan-di.html" target="_blank">Cara membuat Label / Tulisan Berjalan di Injector|Wawan FCD</a>

:: Get this widget ! ::

Artikel Terkait :