Source code berikut untuk membuat teks berjalan pada caption
form.
Buat 1 project dengan :
1 Form
1 Timer (set interval = 200)
Copy source code berikut pada Form :
Buat 1 project dengan :
1 Form
1 Timer (set interval = 200)
Copy source code berikut 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
Dim Red, Green, Blue As Integer
Private Sub Timer1_Timer()
If Blue <= 255 Then Blue = Blue + 50 Else Blue = 0 Green = Green + 50 End If If Green >= 255 Then
Green = 0
Red = Red + 50
End If
If Red >= 255 Then
Red = 0
End If
Label1.ForeColor = Int(RGB(Red, Green, Blue))
Label1.Refresh
End Sub
Private Sub Timer2_Timer()
Label2.Left = Label2.Left - 15
If Label2.Left <= -Label2.Left Then /dapat diubah kekanan ganti left keright keatas top dan kebawah buttom.
Label2.Left = Form1.Width
End If
End Sub
Private Sub Timer1_Timer()
If Blue <= 255 Then Blue = Blue + 50 Else Blue = 0 Green = Green + 50 End If If Green >= 255 Then
Green = 0
Red = Red + 50
End If
If Red >= 255 Then
Red = 0
End If
Label1.ForeColor = Int(RGB(Red, Green, Blue))
Label1.Refresh
End Sub
Private Sub Timer2_Timer()
Label2.Left = Label2.Left - 15
If Label2.Left <= -Label2.Left Then /dapat diubah kekanan ganti left keright keatas top dan kebawah buttom.
Label2.Left = Form1.Width
End If
End Sub
Tidak ada komentar:
Posting Komentar