Teks marquee adalah
teks yang berjalan
Caranya adalah :
1.
Tambahkan
sebuah label
2.
Tambahkan
sebuah timer
Isi dengan
source codenya
Private
Sub Timer1_Timer()
If (Label1.Left + Label1.Width) <= 0
Then
Label1.Left = Me.Width
End If
Label1.Left = Label1.Left - 25
End
Sub
Teks marque
ini secara Horizontal
Private
Sub Timer1_Timer()
If (Label1.Top + Label1.Top) <= 0 Then
Label1.Top = Me.Height
End If
Label1.Top = Label1.Top - 25
End
Sub
Teksnya
berjalan secara Vertikal
4.
SERI TEXTBOX
Tidak ada komentar:
Posting Komentar