Assalamualaikum WRWB

Sekarang saya akan bagikan cara membuat teks berjalan (text marque) dan teks kerlap kerlip (teks blink). yang suka silahkan baca yang ga suka yah..... komen aja langsung.
wkwkwkwkwkwkwkwkwkwkwkwkwk


Ok...... Lanjut.

langkah pertama yang harus teman-teman lakukan adalah

Buatlah sebuah project dengan standartd EXE.
Buatlah 2 buah timer terserah interval mau diisikan berapa tapi disini saya menggunaka nilai 20 untuk masing-masing timer. Nah, kedua timer ini nantinya masing akan digunakan untuk membuat teks berjalan dan teks kerlap kerlip.
Buatlah 2 buah label. Nah, label yang pertama digunakan untuk teks berjalan tadi dan label yang kedua akan kita gunakan untuk teks kerlap kerlip tadi.
Sudah semuanya........

Ok. kita lanjut...... langkah selanjutnya ketikkan coding berikut keview editor rekan-rekan. Nah kalau malas copy paste saja.


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


Gampang kan??????

Sekian toturial dari saya, semoga bermanfaat :)