RE: [Programmer-VB] Gimana Bikin Teks Berjalan di Form

Thu, 19 Oct 2006 16:00:49 -0700

Coba ini:
1. Tambahkan sebuah Label, beri nama lblScroll, cara mudahnya tambahkan sebuah label kedalam form, copy paste label tersebut dalam form itu juga, pisahin biar ga bertumpuk, trus ganti setiap label tersebut dengan nama lblScroll, otomatis akan berupa index seperti lblScroll(0)
2. Tambahkan sebuah Timer Control, set propeti interval menjadi 100
3. ketikan code dibawah ini
Option Explicit
 
Private Sub Form_Load()
    lblScroll(0).AutoSize = False
    lblScroll(0).Move Me.ScaleWidth, lblScroll(0).Top, Me.ScaleWidth
    lblScroll(0).Caption = "Ini Tulisan Berjalan"    ===> disini Anda menempatkan tulisan yg ingin ditampilkan
    lblScroll(1).AutoSize = False
    lblScroll(1).Move lblScroll(0).Left + lblScroll(0).Width, _
    lblScroll(0).Top, Me.ScaleWidth
    lblScroll(1).Caption = lblScroll(0).Caption
End Sub
 
Private Sub Form_Resize()
    lblScroll(0).Width = Me.ScaleWidth
    lblScroll(1).Width = Me.ScaleWidth
    If lblScroll(0).Left < 0 Then
        lblScroll(1).Move lblScroll(0).Left + lblScroll(0).Width, _
        lblScroll(0).Top, Me.ScaleWidth
    End If
    If lblScroll(1).Left < 0 Then
        lblScroll(0).Move lblScroll(1).Left + lblScroll(1).Width, _
        lblScroll(1).Top, Me.ScaleWidth
    End If
End Sub
 
Private Sub Timer1_Timer()
    Dim i As Integer
    Dim iCount As Integer
    iCount = 30
    For i = 0 To iCount
        lblScroll(0).Move lblScroll(0).Left - 1
        lblScroll(1).Move lblScroll(1).Left - 1
        If lblScroll(0).Left = -1 Then
            lblScroll(1).Move lblScroll(0).Left + lblScroll(0).Width, _
            lblScroll(0).Top, Me.ScaleWidth
        End If
        If lblScroll(1).Left = -1 Then
            lblScroll(0).Move lblScroll(1).Left + lblScroll(1).Width, _
            lblScroll(1).Top, Me.ScaleWidth
        End If
    Next i
End Sub
 
Private Sub txtTimerInterval_Change()
    Timer1.Interval = 100
End Sub

Anda bisa mengubahnya sesuai keperluan, semoga membantu
From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of rukawa kaede
Sent: 19 Oktober 2006 17:36
To: [email protected]
Subject: [Programmer-VB] Gimana Bikin Teks Berjalan di Form

Ada yg tau gak bikin teks berjalan di Form?
trims.

Apakah Anda Yahoo!?
Kunjungi halaman depan Yahoo! Indonesia yang baru!

__._,_.___

Wahana Programmer Groups Links

<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
    http://wahanaprogrammer.net

<*> Untuk menghubungi owner milis ini, kirim email ke:
    [EMAIL PROTECTED]

<*> Konsultasi pemrogramman bisa chat disini:
    Yahoo! Messenger: wahanaprogrammer




SPONSORED LINKS
Indonesia phone card Programmer Indonesia tour
Indonesia travel Indonesia flower

Your email settings: Individual Email|Traditional
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch to Fully Featured
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

__,_._,___

Kirim email ke