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
2. text label bergerak dari kanan ke kiri
Untuk Membuat Text/Label Kedap Kedip,Ni Codenya:
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 Subatau
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 SubTambahan ^
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