Membuat Text Berjalan

Diposkan oleh dragon on Sabtu, 08 Oktober 2011

Membuat text berjalan ?? Punya kaki kaleee,, hehehehe.. :D
Nah, hal ini pun bisa kita implementasikan di VB.NET,, nah langkah-langkahnya sebagai berikut :
1. Buka Visual Studionya
2. New Project –> Windows Form Application , dan beri nama dan checklist Create directory for solution nya, lihat gambar berikut :
image
3. Lalu muncul form kosong dan tambahkan control Label dan biarkan namanya tetap dengan Label1 dan design saja sedemikian hingga , lihat gambar berikut :
image Properti autosize pada label tersebut di false..
3. Lalu tambahkan komponen timer dan setting intervalnya menjadi 200
4. Coding ini do jendela codenya :
 1: Public Class Form1
 2: Dim tulisan(2) As String
 3: Dim i, j As Integer
 4: Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
 5: If i.Equals(tulisan(j).Length) Then
 6: Me.Label1.Text = ""
 7: If j < tulisan.Length - 1 Then
 8: j = j + 1
 9: Me.Label1.Text = tulisan(j)
 10: Else
 11: j = 0
 12: End If
 13: i = 0
 14: End If
 15: Label1.Text = tulisan(j).Substring(0, i)
 16: i = i + 1
 17: End Sub
 18: Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 19: tulisan(0) = " ariartama.com "
 20: tulisan(1) = " ariartama.com "
 21: tulisan(2) = " ariartama.com "
 22: Label1.Text = tulisan(j)
 23: Timer1.Start()
 24: End Sub
 25: End Class

5. Dan lihat apa yang terjadi.. Hurupnya berjalan keluar satu-satu kan ?? :D

Silahkan untuk lebih jelas download programnya disini

{ 0 komentar... read them below or add one }

Poskan Komentar