Cara Gampang Membuat Teks Berjalan Pada VB 6

Cara Membuat Teks Berjalan (text marque) dan Teks Kerlap kerlip (teks blink)

Buatlah sebuah project dengan standartd EXE.

Buatlah 2 buah timer dengan mengklik 2x (untuk satu buah timer) seperti gbr di bawah ini terserah interval mau diisikan berapa,  tapi disini kita menggunaka nilai 20 untuk masing-masing timer. 

Kedua timer ini nantinya masing akan digunakan untuk membuat teks berjalan dan teks kerlap kerlip.

Buatlah 2 buah label dengan mengklik 2x gambar huruf A (klik 2x untuk satu buah label).

Label yang pertama digunakan untuk teks kerlap kerlip tadi dan label yang kedua akan kita gunakan untuk teks berjalan tadi.

Coba ganti CAPTION masing-masing label,  terserah anda mau dengan kata atau kalimat apapun. Disini kita mencoba dengan kata CONTOH untuk label 1 dan TEKS BERJALAN untuk label 2.

Cara mengganti Caption yaitu klik pada label, kemudian lihat di properties-label, ada di sebelah kanan.

Kemudian langkah selanjutnya ketikkan coding berikut ke-view editor rekan-rekan dengan cara klik kanan pada area yang kosong kemudian hapus coding yang ada. Kalau malas copy paste saja codingnya.

 Dim Red, Green, Blue As Integer 
Private Sub Timer1_Timer()
If Blue <= 255 Then
Blue = Blue + 50
Else
Blue = 0
Green = Green + 50
End If
If Green >= 255 Then
Green = 0
Red = Red + 50
End If

If Red >= 255 Then
Red = 0
End If
Label1.ForeColor = Int(RGB(Red, Green, Blue))
Label1.Refresh
End Sub

Private Sub Timer2_Timer()
Label2.Left = Label2.Left - 15
If Label2.Left <= -Label2.Left Then
Label2.Left = Form1.Width
End If
End Sub

Sekarang coba jalankan program tersebut,hasilnya akan seperti ini:

Selamat mencoba semoga bermanfaat.