Loading halaman Tutorial Visual Basic, Delphi, PHP - Calon Programer : Membuat animasi form membuka melebar di Visual Basic ...

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 :
  1. Private Sub Form_Load()  
  2. Me.Width = 1845 'seting ukuran form  
  3. Me.Height = 510  
  4. End Sub  
  5.   
  6. Private Sub Timer1_Timer()'timer membuka melebar  
  7. If Me.Width <= 5000 Then  
  8. Do Until Me.Width = 5000  
  9. Me.Width = Me.Width + 5  
  10. Loop  
  11. Else  
  12. Timer1.Enabled = False  
  13. End If  
  14. End Sub  
  15.   
  16. Private Sub Timer2_Timer()'timer membuka tinggi  
  17. If Me.Width >= 5000 Then  
  18. Do Until Me.Height = 5000  
  19. Me.Height = Me.Height + 5  
  20. Loop  
  21. Else  
  22. Timer2.Enabled = False  
  23. End If  
  24. End Sub  

sekarang kalian coba running, oia untuk timer seting intervalnya 500 ajah cukup.yang males nyoba,sok di download langsung

0 Reply :

Posting Komentar

Jika ada pertanyaan atau request,Komentar pada tab blogger akan lebih memudahkan saya untuk membalasnya karena lebih mudah melakukan pengecekan komentar.