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 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 Laboratorium BSI Bekasi
Would you like to react to this message? Create an account in a few clicks or log in to continue.


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

 

 Animasi Form melebar

Go down 
AuthorMessage
indrawan21
Administrator
Administrator
indrawan21


Jumlah posting : 76
Poin : 2147483647
Reputasi : 7
Join date : 2011-05-07
Age : 37
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
Back to top Go down
http://indrawan21.blogspot.com
 
Animasi Form melebar
Back to top 
Page 1 of 1
 Similar topics
-
» Form Animasi Tirai
» Mengkoneksikan Form ke Form
» Animasi Partikel VB
» Animasi Keluar Naik & Turun
» trik animasi flash berjalan di VB 6.0

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: