Dasar 21. Text Berjalan Di Form

Kita akan belajar bagaimana membuat sebuah text atau tulisan menjadi berjalan.

1. Buatlah sebuah form baru.
2. Masukanlah objek objek berikut ini kedalam form tersebut :

NAME	CAPTION	TOOL
Timer1	-	Timer
Timer2	-	Timer
Timer3	-	Timer
Label1	Contoh Berjalan Ke Kiri	Label
Label2	Contoh Berjalan Ke Kanan	Label
Label3	Contoh Berjalan Terus	Label

3. Keterangan :

Untuk semua Timer gantilah intervalnya menjadi 100

4. Listing Program :

Dim KIRI As Integer
Dim TULISAN1 As String
Dim KANAN As Integer
Dim TULISAN2 As String

Private Sub Form_Load()
TULISAN1 = Label1
TULISAN2 = Label2
End Sub

Private Sub Timer1_Timer()
Label1 = KIRI
TULISAN1 = Right(TULISAN1, Len(TULISAN1) – 1) & Left(TULISAN1, 1)
Label1 = TULISAN1
End Sub

Private Sub Timer2_Timer()
Label2 = KANAN
TULISAN2 = Right(TULISAN2, 1) & Left(TULISAN2, Len(TULISAN2) – 1)
Label2 = TULISAN2
End Sub

Private Sub Timer3_Timer()
If Label3.Left >= Width Then
Label3.Left = -Label3.Width
Else: Label3.Left = Label3.Left + 100
End If
End Sub
    

DEMIKIANLAH TUTORIALNYA SEMOGA BERMANFAAT..... JANGAN LUPA LIKE POST INI>>>>> MAKASIH.....

Print this page

Posted in: Visual Basic 6.0