Forum Laboratorium BSI Bekasi
Selamat Datang pengunjung...

Jika anda sudah terdaftar dalam forum ini silahkan login, namun jika tidak harap mendaftar dahulu untuk melihat forum-forum yang dikunci...

Forum ini adalah forum yang didirikan oleh Asisten BSI untuk berbagi pengetahuan tentang apa saja....

Semoga forum ini bermanfaat....


Forum Komunitas Lab BSI Bekasi yang ditujukan untuk sharing ilmu pengetahuan tentang apa saja dan juga sebagai tempat nongkrong kaum intelektual
 
HomeFAQSearchRegisterLog in

Share
 

 Animasi Form melebar

Go down 
AuthorMessage
indrawan21
Administrator
Administrator
indrawan21

Jumlah posting : 76
Poin : 2147483647
Reputasi : 7
Join date : 2011-05-07
Age : 33
Lokasi : Kelapa Gading Agak kemarian dikit

Animasi Form melebar Empty
PostSubject: Animasi Form melebar   Animasi Form melebar Icon_minitimeThu May 12, 2011 12:19 am

Sekarang saya akan mencoba sedikit berbagi ilmu lagi tentang animasi di VB

Kali ini yang dibahas mengenai animasi form membuka secara melebar. Jadi saat kita run aplikasi tsb,formnya membuka melebarke ukuran yg kita inginkan.

Langsung ajah di coba :

Siapkan satu project exe biasa, dan tambahkan 2 buah timer pada form.

Ketikkan kode ini di dalam Listing form kalian :

Private Sub Form_Load()
Me.Width = 1845 'seting ukuran form
Me.Height = 510

End Sub

Private Sub Timer1_Timer()'timer membuka melebar
If Me.Width <= 5000 Then
Do Until Me.Width = 5000
Me.Width = Me.Width 5
Loop
Else
Timer1.Enabled = False
End If
End Sub

Private Sub Timer2_Timer()'timer membuka tinggi
If Me.Width >= 5000 Then
Do Until Me.Height = 5000
Me.Height = Me.Height 5

Loop
Else

Timer2.Enabled = False
End If
End Sub

sekarang kalian coba running, oia untuk timer seting intervalnya 500 ajah cukup

**************************************************************
Animasi Form melebar Signature
Animasi Form melebar Hacker
Kalo punya ilmu jangan pelit
Kalo punya duit juga jng pelit :p



Lapak dot Tk
Lapak dot Com
Back to top Go down
http://indrawan21.blogspot.com
 
Animasi Form melebar
Back to top 
Page 1 of 1
 Similar topics
-
» how to select an option from select box of a form

Permissions in this forum:You cannot reply to topics in this forum
Forum Laboratorium BSI Bekasi :: MATERI LAB :: VISUAL BASIC :: TEKNIK-TEKNIK PEMROGRAMAN VB-
Jump to: