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.