Berikut cara membuat teks berjalan dengan VB NET :
1. Membuat project baru dengan vb.net
2. Membuat form dengan menambahkan sebuah label
3. Bentuk form seperti gambar di bawah ini
4. Tambahkan sebuah timer
5. Atur Properti Timer Enable=True
6. Klik dua kali timer
7. Tulis koding di bawah ini
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles Timer1.Tick
Label1.Text = Bergerak
Teks = Microsoft.VisualBasic.Right(Teks, Len(Teks) - 1)
& Microsoft.VisualBasic.Left(Teks, 1)
Label1.Text = Teks
End Sub
8. Klik dua kali judul form
9. Ketik coding di bawah ini
Private Sub MembuatTeksBerjalan_Load(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Teks = Label1.Text
End Sub
10. Coding lengkap dapat dilihat dibawah ini
Public Class MembuatTeksBerjalan
Dim Bergerak As Integer
Dim Teks As String
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles Timer1.Tick
Label1.Text = Bergerak
Teks = Microsoft.VisualBasic.Right(Teks, Len(Teks) - 1)
& Microsoft.VisualBasic.Left(Teks, 1)
Label1.Text = Teks
End Sub
Private Sub MembuatTeksBerjalan_Load(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Teks = Label1.Text
End Sub
End Class
Begitulah cara membuat teks berjalan dengan VB NET, semoga bermanfaat.
1. Membuat project baru dengan vb.net
2. Membuat form dengan menambahkan sebuah label
3. Bentuk form seperti gambar di bawah ini
4. Tambahkan sebuah timer
5. Atur Properti Timer Enable=True
6. Klik dua kali timer
7. Tulis koding di bawah ini
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles Timer1.Tick
Label1.Text = Bergerak
Teks = Microsoft.VisualBasic.Right(Teks, Len(Teks) - 1)
& Microsoft.VisualBasic.Left(Teks, 1)
Label1.Text = Teks
End Sub
8. Klik dua kali judul form
9. Ketik coding di bawah ini
Private Sub MembuatTeksBerjalan_Load(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Teks = Label1.Text
End Sub
10. Coding lengkap dapat dilihat dibawah ini
Public Class MembuatTeksBerjalan
Dim Bergerak As Integer
Dim Teks As String
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles Timer1.Tick
Label1.Text = Bergerak
Teks = Microsoft.VisualBasic.Right(Teks, Len(Teks) - 1)
& Microsoft.VisualBasic.Left(Teks, 1)
Label1.Text = Teks
End Sub
Private Sub MembuatTeksBerjalan_Load(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Teks = Label1.Text
End Sub
End Class
Begitulah cara membuat teks berjalan dengan VB NET, semoga bermanfaat.
0 Komentar untuk "MEMBUAT TEKS BERJALAN DENGAN VB NET"