Forum Medan

You are not connected. Please login or register

Tutorial Text Effect Pada Visual Basic 6

Topik sebelumnya Topik selanjutnya Go down  Message [Halaman 1 dari 1]

1 Tutorial Text Effect Pada Visual Basic 6 on Mon Nov 22, 2010 10:29 am

Imam Asseyka


*_STAR ADMINISTRATOR_*
*_STAR ADMINISTRATOR_*
Langsung Aja ......

untuk text kedap kedip tambahkan timer, misalnya timer3, set intervalnya pada properties misalnya 200

Code:
Private Sub Timer3_Timer()

If Label1.Visible = True Then
Label1.Visible = False
Else
Label1.Visible = True
End If

End Sub

kalau mau yg text berjalan berulang pake ini yg simple ,
untuk text isi sendiri di label1 caption pada property, jangan lupa kasih spasi kalau ngga nyambung trus tuh text.

1. text label bergerak dari kiri ke kanan

Code:
Private Sub timer4_Timer()
    timer4.Interval = 200
    Label1.Caption = Mid(Label1.Caption, 2, Len(Label1.Caption) - 1) + Mid(Label1.Caption, 1, 1)
End Sub


atau

2. text label bergerak dari kanan ke kiri

Code:
Private Sub timer4_Timer()
    timer4.Interval = 200
    Label1.Caption = Mid(Label1.Caption, Len(Label1.Caption), 1) + Mid(Label1.Caption, 1, Len(Label1.Caption) - 1)
End Sub


UNTUK BUAT JUDUL FORM/INJECTOR BERJALAN

buat timer beri nama timer5 trus tinggal masukin code di bawah ini ke timer5 tsb

Code:
Private Sub timer5_Timer()
    timer5.Interval = 200
    Form1.Caption = Mid(Form1.Caption, 2, Len(Form1.Caption) - 1) + Mid(Form1.Caption, 1, 1)
End Sub

jangan lupa intervalnya diisi 150.. ^^

Lihat profil user http://forummedan.4rumer.com

2 Re: Tutorial Text Effect Pada Visual Basic 6 on Thu Nov 25, 2010 3:04 pm

awan


*_Star_One_*
*_Star_One_*
oke terimakasih....saya akan coba.....

Lihat profil user

Topik sebelumnya Topik selanjutnya Kembali Ke Atas  Message [Halaman 1 dari 1]

Similar topics

-

» RolePlay Dengan Baik

Permissions in this forum:
Anda tidak dapat menjawab topik