TRIK ANIMASI FORM KEREN

Trik animasi Form keren

Assalamualaikum wr, wb...

Apa maksud judul diatas? 

Hehe.. Maksud saya membuat judul tersebut karna kita sekarang akan membuat animasi untuk form program kita agar terlihat lebih keren dan tidak monoton. Gambarannya begini, Ketika form dibuka, sebelum form tampil sepenuhnya dia akan keluar dengan gaya membesar dan apabila tombol Tutup di klik maka form akan menutup dengan gaya menggulung keatas. Keren kan..

Ooohh.. gtu toh.. trus gimana caranya?

Ya makanya simak trik berikut ini untuk membuat animasi form keren, Check it out..

1. Buka program Visual Basic dan mulailah dengan form baru.

2. Tambahkan dengan komponen tombol (CommandButton)

    Ganti Caption tombol menjadi "Tutup"

3. Double klik pada area form dan masukan isting kode dibawah ini pada prosedur Form_Load()

Sub Form_Load()
   Me.Width = 0
   Me.Height = 0

   Me.Show
      For x = 0 To 5000 Step 100
      Me.Width = x
      Me.Height = x
      With Me 

         .Left = (Screen.Width - .Width) / 2
         .Top = (Screen.Height - .Height) / 2
      End With
   Next x
End Sub

4. Double klik pada Tombol Tutup dan masukan Listing berikut pada prosedur Command1_Click()

Private Sub Command1_Click()
nilai = Me.Height / 2


For nilaibaru = 1 To nilai
    'Nilai baru yang dihasilkan dari tinggi form/2


    DoEvents
        Me.Height = Me.Height - 10
        'Me.Top = (Screen.Height - Me.Height) / 2
        If Me.Height <= 11 Then GoTo nilaiakhir
    Next nilaibaru


    'ini Bagian lebar form
nilaiakhir:
    Me.Height = 30
    nilai = Me.Width / 2


    For nilaibaru = 1 To nilai
        'nilaibaru yang dihasilkan


        DoEvents
            Me.Width = Me.Width - 10
            'Me.Left = (Screen.Width - Me.Width) / 2
            If Me.Width <= 11 Then End
        Next nilaibaru
       
End
End Sub

5. Selesai... Coba Jalankan program anda dengan menekan tombol F5 pada keyboard.

Wassalam.. n smoga bermanfaat