[Tutorial] Membuat Animasi Bergerak/ GIF Pada Form with VB6

Buka VB6nya dolo , Ikuti Tutorial Berikut : 1.Download File Ini : LExus_stars

2.Klik Tab Component , Arahkan Ke File Yang Di Download Tdi .

3.Klik 2 Kali GifViewer tdi , Maka Muncul Kotak .

4.Pada Tab Propeties Pilih Gambar Bergerak Yang Mau Dimasukkan .

5.Coba Run Project Mu , Tadaaaa .. Bergerak Kan.

6.Jika Mau Lebih Sempurna Hilangkan tepian Form

Tutorial:

• - Buat lah Gambar Yang Ingin Di pakai Di injectornya bagian Blakang Bacground Trasparant Menggunakan Photoshop atau Yang Lain !
• -Ingat Buat BackColor Form Mu Terisi Warna Apa Saja Kecuali Hitam Dan Putih .
• -Buat Border Stylenya : 0-None
• -Caranya Liat Di Propeties Form , Ada tulisan BackColor : Isi Dengan Warna Apa Saja Kecual Hitam Dan Putih
• -Liat SS berikut:

Silahkan Buat 1 Module .

Private Declare Function  GetWindowLong Lib "user32.dll" Alias "GetWindowLongA" (ByVal hwnd As  Long, ByVal nIndex As Long) As Long
Private Declare Function  SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" (ByVal hwnd As  Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private  Declare Function SetLayeredWindowAttributes Lib "user32.dll" (ByVal hwnd  As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As  Long) As Long
Sub SetTransparency(piHwnd As Long, piColor As OLE_COLOR)
    Const G_E = &HFFEC
    Const W_E = &H80000
    Const  LW_KEY = &H1
    SetWindowLong piHwnd, G_E, GetWindowLong(piHwnd,  G_E) Or W_E
    SetLayeredWindowAttributes piHwnd, piColor, 0,  LW_KEYEnd Sub

Dan Isi Code Berikut Di Form Mu :

Private Sub Form_Initialize()
    Call SetTransparency(Me.hwnd, Me.BackColor)
End Sub

Jika kurang JElas ... Bisa tanya ke saya . ::: FAceBook