Style Huruf Dengan Effect Bergerak Pada Visual Basic.Net 2008 (Bottom-Up)

Share12

Pada tutorial kali ini saya ingin membahas mengenai teks dengan effect bergerak dari bawah ke atas,
mberikut tutorialnya.

Langkah 1
Buatlah :
1 buah form
1 buah label
2 buah command button
1 buah timer
1 buah picturebox
1 buah texbox


Susunlah seperti gambar berikut.

Gambar 1

Langkah 2
Ubah Properties pada :
Button1 >> ubah kolom text menjadi “tampilkan”
Button2 >> ubah kolom text menjadi “berhenti”
Label1 >> ubah kolom name menjadi “lbljalan”, dan kolom text
Dikosongkan
Picturebox >> pilih image sesuai yang kalian inginkan
Hasil akan sebagai berikut.

Gambar 2

Langkah3.
Pada langkah ini kita sudah dapat mengetikkan coding sebagai berikut

Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
lbljalan.Text = ” ”
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim t = lbljalan.Top
lbljalan.Top = t + 500
While lbljalan.Top >= t
‘   Sleep(5000)
lbljalan.Top = lbljalan.Top – 10
End While
‘Sleep(12000)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Enabled = True
lbljalan.Text = TextBox1.Text
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Enabled = False
End Sub
End Class

Jika semua langkah telah dilakukan dengan baik dan benar maka hasil akan sebagai berikut.