Cara membuat animasi slide form dari kanan ke kiri di vb.net

Lanjutan dari tutorial sebelummnya, kali ini saya akan memberikan tutorial tentang membuat animasi slide from dari kanan ke kiri layar. Pada animasi ini menggunakan library "user32" berikut langkah-langkahnya


Pertama buat dulu module dengan cara klik menu project -> Add Module dan beri dengan namanya terserah anda. Disini misal saya kasih nama ModuleAnimasiForm.vb dan berikut tampilan penuh source codenya.

Module ModuleAnimasiForm
    Public Enum AnimateWindowFlags
        AW_HOR_POSITIVE = &H1
        AW_HOR_NEGATIVE = &H2
        AW_VER_POSITIVE = &H4
        AW_VER_NEGATIVE = &H8
        AW_CENTER = &H10
        AW_HIDE = &H10000
        AW_ACTIVATE = &H20000
        AW_SLIDE = &H40000
        AW_BLEND = &H80000
    End Enum

    Public Declare Auto Function AnimateWindow Lib "user32" (ByVal hwnd As IntPtr, ByVal time As Integer, ByVal flags As AnimateWindowFlags) As Boolean
 

    Sub animaten(ByVal frmToAnimate As Form, ByVal showform As Boolean)
        If showform Then
            AnimateWindow(frmToAnimate.Handle, 300, AnimateWindowFlags.AW_HOR_NEGATIVE Or AnimateWindowFlags.AW_SLIDE)
        Else
            AnimateWindow(frmToAnimate.Handle, 300, AnimateWindowFlags.AW_HOR_POSITIVE Or AnimateWindowFlags.AW_HIDE)
        End If

    End Sub


End Module

Catatan: Angka 300 adalah nilai untuk kecepatan slide saat form bergerak dari kanan ke kiri. Semakin kecil nilai yang diberikan, maka slide form akan bergerak semakin cepat. Begitu juga sebaliknya jika nilai nya besar maka form slide akan bergerak lambat.

Untuk langkah selanjutnya pada form baru yang akan di pannggil, pada properties set  FormBorderStyle menjadi None.  pada event form Load tinggal memanggil code animaten(Me, True) seperti contoh berikut.


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        animaten(Me, True)
       
    End Sub



Pada event form close atau pada button close masukan  code  animaten(Me, False) untuk animasi slide gerak mundur sekaligus menutup form.


Selamat Berkreatifitas...CMIIW..
background