Membuat Caption Label Bergerak

    Share

    eRGe@N5
    Member Newbie
    Member Newbie

    Male
    Thread & Post : 14
    Point Forum : 206733
    Thanks Given : 0
    Join date : 02.08.11
    Age : 27
    Lokasi : N3 & N5

    default Membuat Caption Label Bergerak

    Post by eRGe@N5 on Thu Aug 18, 2011 1:43 am

    - Buat Project baru Standart Exe
    - Tambahkan 1 buah Control Timer (Timer1) Property yang diset :
    Enable = True, Interval = 100
    - Satu Buah Control Label (Label1)



    Ketik Coding dibawah ini pada Form Project

    Spoiler:
    Dim Pos As Integer, StartPos As Integer, Lengh As Integer, iTeks As Integer
    Dim MyTeks As String

    Private Sub Form_Load()
    iTeks = 1
    End Sub

    Private Sub Timer1_Timer()
    Pos = Pos + 1
    If iTeks = 1 Then
    MyTeks = "Ini adalah Contoh ..."
    ElseIf iTeks = 2 Then
    MyTeks = "Pembuatan Label Berjalan"
    ElseIf iTeks = 3 Then
    MyTeks = "Dengan Visual Basic"
    End If
    StartPos = Len(MyTeks)
    Lengh = StartPos - Pos
    If Lengh = 0 Then
    If iTeks = 1 Then
    iTeks = 2
    ElseIf iTeks = 2 Then
    iTeks = 3
    ElseIf iTeks = 3 Then
    iTeks = 1
    End If
    Pos = 0 - StartPos
    End If
    Label1 = Right(MyTeks, Lengh)
    End Sub

    Mudahkan gak ribet , Sekarang Coba sobat jalan kan Project nya (Tekan F5) Caption pada label1 akan berjalan-jalan dan tulisannya bergantian tapi hati-hati sob jangan sampai labelnya kesasar gak tau pulang (wekekekekeke).

    Mudah-mudahan ada mamfaat nya bagi sobat-sobat semua, dan khusus pada VB Depelover yang masih pemula tentunya (Salam), terimakasih sebelumnya buat sobat-sobat yang sudah bersedia memberikan komentarnya.

      Waktu sekarang Mon Dec 05, 2016 11:27 am