Source code berikut untuk membuat teks berjalan pada caption form.
Yang diperlukan :
1 Form
1 Timer (set interval = 200)
Source code pada Form :
Yang diperlukan :
1 Form
1 Timer (set interval = 200)
Source code pada Form :
| Dim teksJalan As String |
|
| Private Sub Form_Load() |
| teksJalan = "Teks ini berjalan pada caption Form. " |
| 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 | Download Source Code |
