Cara Membuat Program Running Text VB6.0

Pertama aturlah tampilan form sesuai dengan keinginan, atau dapat mengikuti contoh tampilan berikut ini.

Tampilan form vb

Kemudian Ketikkan Source code program berikut ini :

Private Sub Command1_Click()
MsgBox "Software Version 1.0 by : Dedi Flo", vbInformation, "Version"

End Sub

Private Sub Form_Load()
  Text1 = 300
End Sub

Private Sub Timer1_Timer()
  Timer1.Interval = Text1
  a = Me.Label1.Caption
  b = Left(a, 1)
  c = Right(a, Len(a) - 1)
  Me.Label1.Caption = c + b
End Sub

Setelah program selesai, Jalankan Run Program atau tekan F5.

Tampilan form saat di run

Jika program berhasil, maka form akan tampil seperti tampilan di atas. Untuk mengatur kecepatan gerak dari tulisan kita dapat menggantinya dengan mengubah pada textbox speed (dalam satuan milisecond).

Sekian tulisan ini, semoga bermanfaat. Jika ada saran atau masukan silahkan di comment,

terima kasih.

All sharing is only for you guys...

-----------------------------------

Dedi Flo - blog

Share this