Cara membuat Teks Berjalan dan Kerlap Kerlip pada Visual Basic 6.0

Nah, buat rekan-rekan yang suka sama tampilan yang keren mungkin artikel ini cukup bagus buat rekan-rekan sekalian.

kalau kemarin-kemarin manusia biasa posting artikel yang menggabungkan visual basic dan animasi klik disini. sekarang manusia biasa juga akan bagikan cara membuat teks berjalan (text marque) dan teks kerlap kerlip (teks blink). semua disajikan dengan ala manusia biasa. yang suka silahkan baca yang ga suka yah..... komen aja langsung.


Ok...... Lanjut.

langkah pertama yang harus rekan-rekan lakukan adalah

Buatlah sebuah project dengan standartd EXE.
Buatlah 2 buah timer terserah interval mau diisikan berapa tapi disini manusia biasa 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??????

Nah, kalau yang mau project lengkapnya dapat diambil disini.
Kalau rekan-rekan sekalian ingin mendapatkan hasil yang lebih bagus silahkan kembangkan lagi....
sekian dulu artikel VB kali ini ketemu lagi diartikel VB yang selanjutnya...
makasi

Posting Komentar

0 Komentar