Membuat Teks Berjalan

Postingan kali ini penulis ambil dari situs tek-tips, artikelnya bisa anda lihat dihalaman ini

Namun setelah penulis mencobanya, terjadi beberapa error, sehingga penulis mencoba untuk "sedikit" memperbaikinya dalam postingan berikut ini. Error yang terjadi pada komputer penulis adalah error pada baris &quot, dan juga ketika penulis menambahkan Option Explicit, maka akan terjadi error "Variable not defined".

Langsung saja ke pokok permasalahannya, pada postingan kali ini, penulis akan sharing cara membuat Teks Berjalan dalam sebuah Form. Yang penulis maksudkan dengan Teks Berjalan disini adalah sebuah Text yang tulisannya berjalan dari kanan ke kiri (seperti Teks dalam gerbang Tol, yang biasanya tulisan selamat datang atau selamat jalan yang berwarna merah).

untuk membuat tulisan berjalan, disini penulis gunakan sebuah label, caranya adalah sebagai berikut :

1. Buat sebuah label pada Form yang anda inginkan, lalu beri nama label tersebut, misalnya dengan nama lblContoh.
2. Lalu masuk ke jendela visual basic editor dari form tersebut dan masukkan code berikut ini :
Private strText As String

Private Static Function TeksBerjalan() As String
Dim intTeks As Integer
Dim TextLen As Integer
  
    intTeks = intTeks + 1
    TextLen = Len(strText)
    If intTeks >= TextLen Then intTeks = 1
  
    TeksBerjalan = Mid([strText], intTeks, Len([strText])) & Left([strText], intTeks)
 End Function

3. Lalu pada properti dari form tersebut, atur Timer Intervalnya, disini penulis masukkan angka 150
4. Lalu pada event On Timer, pilih [Event Procedure], dan masukkan code berikut ini :
strText = "NUGIE-SUKASUKA.BLOGSPOT.COM - " (masukkan teks sesuai keinginan anda)
Me.lblContoh.Caption = TeksBerjalan

5. Sehingga code anda akan terlihat seperti dibawah ini :
Option Compare Database
Option Explicit

Private strText As String

Private Static Function TeksBerjalan() As String
Dim intTeks As Integer
Dim TextLen As Integer
  
    intTeks = intTeks + 1
    TextLen = Len(strText)
    If intTeks >= TextLen Then intTeks = 1
  
    TeksBerjalan = Mid([strText], intTeks, Len([strText])) & Left([strText], intTeks)
End Function

Private Sub Form_Timer()
strText = "NUGIE-SUKASUKA.BLOGSPOT.COM - "
Me.lblContoh.Caption = TeksBerjalan
End Sub

6. Klik Save, lalu test form tersebut

Untuk file contohnya bisa anda download dari sini.
Semoga Berhasil
Semoga Bermanfaat...

Read more »