Program ini saya dapatkan di
irmanf.wordpress.com
yaitu membuat teks berjalan pada caption form atau judul form.
Yang di maksud caption form, adalah yang saya lingkarin warna merah seperti pada gambar di bawah ini:
Program selengkapnya bisa di download di
siniatau ingin tau cara membuatnya?? silahkan baca posting ini samai selesai :)
Cara membuatnya:
1. Kita buka visual basic 6.0 - Standart exe
2. Kita tambahkan timer dalam form yang kita buat
3. Kita atur interval timer dalam properties timer, dari 0 menjadi 200
4. Saatnya melakukan coding, klik 2 kali pada form dan copy paste coding ini dalam program:
Dim teksJalan As String
Private Sub Form_Load()
teksJalan = "Welcome To My Program"
End Sub
Private Sub Timer1_Timer()
a = Left(teksJalan, 1)
c = Len(teksJalan)
b = Right(teksJalan, c - 1)
teksJalan = b + a
Form1.Caption = teksJalan
End Sub
seperti di gambar di bawah ini:
Program selengkapnya bisa di download di
sinisumber:
http://irmanf.wordpress.com/2010/01/27/teks-berjalan-pada-caption-form/