Download source code vb6, source code delphi7, tutorial vb, tutorial delphi, tutorial php

Membuat animasi form membuka melebar di Visual Basic

Share on :
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 komentar on Membuat animasi form membuka melebar di Visual Basic :

Post a Comment and Don't Spam!

Terimakasih Sudah Berkomentar di artikel ini