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

Add caption

Assalamualaikum Wr.Wb
Pada tutorial kali ini saya ingin membahas mengenai teks dengan effect bergerak dari bawah ke atas, pada kesempatan sebelumnya saya telah membahas teks berjalan, mungkin tutorial kali ini tidak jauh berbeda dengan tutorial sebelumnya, namun disini saya kreasikan dengan sedikit perubahan kecil, berikut 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.

sekian tutorial dari saya, semoga bermanfaat bagi para teman-teman programer sekalian, terimakasih.

Wassalamualaikum Wr.Wb.