Program Visual Basic: Membuat Teks Berjalan Pada Caption Form

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 sini

atau 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 sini

sumber:
http://irmanf.wordpress.com/2010/01/27/teks-berjalan-pada-caption-form/

Labels: