SMKN 2 Kraksaan IT Forum

Disini nih, kita kumpul2 yuk, para alumni IT SMKN 2 Kraksaan, yang masih bersekolah, Para guru2 IT-RPL SMKN 2 Kraksaan, temen2 di komunitas inochi, Vb-bego n forum2 yang lain..
 
HomeHome  FAQFAQ  SearchSearch  MemberlistMemberlist  UsergroupsUsergroups  RegisterRegister  Log in  

Share | 
 

 Menbuat tulisan berjalan..

View previous topic View next topic Go down 
AuthorMessage
Admin
Administrator
Administrator
avatar

Number of posts : 16
Registration date : 2008-10-18

PostSubject: Menbuat tulisan berjalan..   Fri Nov 07, 2008 10:55 pm

Yang ingin membuat animasi tulisan berjalan...

1. Buat project baru dengan satu form.
2. Letakkan kontrol berikut : satu timer dan satu label.
3. atur property Timer1 dengan interval = 10

Ketik kode berikut pada form.

Code:
Private Sub Timer1_Timer()
Label1.Left = Label1.Left - 50
If Label1.left < 0 Then
 Label1.Left = Me.Width
End If
End Sub

4. Pengen yang lebih gaul????

Ganti kode diatas dengan kode yang ini...

Code:
Private Sub Timer1_Timer()
Static Atas As Boolean
Label1.Top = Label1.Top + IIf(Atas, -50, 50)
If Label1.Top < 0 Then
Atas = False
ElseIf Label1.Top > Me.Height - Label1.Height - 300 Then
Atas = True
End If
End Sub

Kalok yang ini biar tulisannya berjalan naik turun... dicobak saja...
Back to top Go down
View user profile http://smkn2kraksaanitforum.forummotions.com
aqil ari
Guest



PostSubject: ganteng   Mon May 10, 2010 10:40 pm

CrawlAlien
Back to top Go down
 
Menbuat tulisan berjalan..
View previous topic View next topic Back to top 
Page 1 of 1

Permissions in this forum:You cannot reply to topics in this forum
SMKN 2 Kraksaan IT Forum :: Forum Pemrograman :: Pemrograman VB-
Jump to: