Cara Membuat Animasi Form Keren Fade In Fade Out Menggunakan Visual Basic 6.0

Animasi adalah gambar begerak terbentuk dari kumpulan-kumpulan objek (gambar) yang disusun secara beraturan mengikuti alur pergerakan yang telah ditentukan pada setiap pertambahan hitungan waktu yang terjadi. Objek tersebut dapat berupa gambar makhluk hidup, benda mati, ataupun tulisan.

Pada kesempatan kali ini admin akan menguraikan cara membuat animasi form dengan efek Fade In Fade Out secara transparan menggunakan Visual Basic 6.0 (VB6). Pertama-tama buka Visual Basic 6.0 (VB6) buatlah project - form kemudian tambahkan komponen PictureBox pada form tersebut. 

LINK DOWNLOAD

Source Code Cara Membuat Animasi Form Keren Fade In Fade Out Menggunakan Visual Basic 6.0

Aturlah jendela Properties PictureBox sebelah kanan 

Appearance = 0 - Flat

AutoSize = False

Align = 0 - None

ScaleMode = 3 - Pixel

Masih pada jendela Properties PictureBox cari Picture kemudian klik tombol cari gambar apa saja yang terdapat pada PC agan kemudian klik Open, komponen PictureBox akan berisi gambar yang agan pilih melalui menu Picture pada jendela Properties PictureBox seperti tampilan diatas. Setelah itu tambahkan juga 1 (satu) buah module dan untuk name dari module tersebut bebas dan copas coding Visual Basic 6.0 (VB6) dibawah ini, pastekan pada module yang baru dibuat tadi.

Public Declare Function BitBlt Lib "gdi32.dll" (ByVal hdcDest As Long, ByVal nXDest As Long, ByVal nYDest As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hdcSrc As Long, ByVal nXSrc As Long, ByVal nYSrc As Long, ByVal dwRop As Long) As Long

Public Declare Function ReleaseDC Lib "user32" (ByVal hWnd As Long, ByVal hdc As Long) As Long

Public Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long

Public Declare Function GetDesktopWindow Lib "user32" () As Long

Public Declare Function SetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal Y As Long, ByVal crColor As Long) As Long

Public Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal Y As Long) As Long

Public Declare Function GetTickCount Lib "kernel32" () As Long

Public Type SHITEMID

cb As Long

abID As Byte

End Type

Public Type ITEMIDLIST

mkid As SHITEMID

End Type

Public Sub AlwaysOnTop(myfrm As Form, SetOnTop As Boolean)

If SetOnTop Then

   lFlag = HWND_TOPMOST

Else

   lFlag = HWND_NOTOPMOST

End If

End Sub

Public Function GetDesktop(FRM As Form)

Dim HW As Long

Dim HA As Long

Dim iLeft As Integer

Dim iTop As Integer

Dim iWidth As Integer

Dim iHeight As Integer

FRM.AutoRedraw = True

FRM.Show

FRM.Hide

DoEvents

HA = GetDC(GetDesktopWindow())

iLeft = FRM.Left / Screen.TwipsPerPixelX

iTop = FRM.Top / Screen.TwipsPerPixelY

iWidth = FRM.ScaleWidth

iHeight = FRM.ScaleHeight

Call BitBlt(FRM.hdc, 0, 0, iWidth, iHeight, HA, iLeft, iTop, vbSrcCopy)

FRM.Picture = FRM.Image

FRM.Show

End Function

Public Function Gerade(Number) As Boolean

If Round(Number / 2, 0) = Number / 2 Then

   Gerade = True

Else

   Gerade = False

End If

End Function

Public Sub Pause(Delay)

Dim StartTime

StartTime = GetTickCount

Do

Loop Until StartTime + Delay < GetTickCount

End Sub

Dilanjut untuk berikutnya yaitu, double klik pada form dan pilih prosedur Form_Load copas Coding Visual Basic 6.0 (VB6) dibawah ini

Dim H, W, col As Long

Me.Width = Picture1.Width * 15

Me.Height = Picture1.Height * 15

Call GetDesktop(Me)

Me.Show

For W = 0 To Picture1.ScaleWidth

    For H = 0 To Picture1.ScaleHeight

        If Gerade(W) = Gerade(H) Then

        col = GetPixel(Picture1.hdc, W, H)

        SetPixel Me.hdc, destX + W, destY + H, col

        Else

        col = GetPixel(Picture1.hdc, Picture1.ScaleWidth - W, H)

        SetPixel Me.hdc, destX + Picture1.ScaleWidth - W, destY + H, col

        End If

    Next H

    Me.Refresh

    DoEvents

    Pause 1

Next W

Unload Me

Setelah selesai simpan terlebih dahulu project diatas, kemudian coba RUN/F5. Form yang berisi komponen picturebox akan running mengikuti ukuran bentuk dari picturebox kemudian diiringi animasi Fade In Fade Out pada form secara transparan. Sangat Cool bukan layout tampilan animasi source code ini, semoga pembahasan artikel kali ini dapat bermanfaat.