Zoro x Zoro
Welcome To ZxZ Community

Apakah Anda Baru Di sini....
Untuk melihat semua isi Forum Silakan klik "Pendaftaran" Di bawah ini untuk mendaftar di Forum ini

Apakah Anda telah Terdaftar di Forum ini......
Silakan "Login" di bawah ini untuk melihat isi Forum ini..


Terima Kasih ^_^


Hormat Kami

Zera Ilham
_________
Admin



 
VIP RoomsIndeksZxZ|PortalCalendarGalleryPendaftaranLoginMy Blog
™️Welcome To ZxZ Cilegon Cyber Community [Daftarkan Diri Anda SEGERA]™️
--------
UNTUK MEMBER ZxZ YANG JARANG ONLINE, KAMI MOHON MAAF APABILA USER ANDA KAMI " DELETE "KARENA KAMI INGIN MEMBERIKAN YANG TERBAIK KEPADA FORUM ZxZ, KAMI UCAPKAN TERIMA KASIH
--------

Share | 
 

 Membuat Animasi Bergerak/ GIF Pada Form VB6

Topik sebelumnya Topik selanjutnya Go down 
PengirimMessage
ZraIlyas
Management
Management
avatar

Gender : Male Jumlah posting : 204
Join date : 18.04.11
Age : 19
Lokasi : http://zoro-x-zoro.n-stars.org/

PostSubyek: Membuat Animasi Bergerak/ GIF Pada Form VB6   Thu Jul 07, 2011 2:14 pm

Buka VB6nya dolo , Ikuti Tutorial Berikut :

1.Download File Ini : Click Here

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 . Cranya Disini:

Membuat Form Transparant/Background Hilang

Contoh Image:
Spoiler:
 

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:

ScreenShot
Spoiler:
 

Silahkan Buat 1 Module .
Dan Isi Code berikut:

Code:
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_KEY
End Sub

Dan Isi Code Berikut Di Form Mu :
Code:
Private Sub Form_Initialize()
    Call SetTransparency(Me.hwnd, Me.BackColor)
End Sub

Creadit: Rannu
Sumber: Forum Sebelah


Tidak mau kena Warn/Banned Baca Rules
Buatlah Postingan kalian Sebagus Mungkin Sebelum Saya

- No Double Posting
- No Junk
- No OOT
- No Sara
- No Flaming
- No Capslock Berlebihan
- No Promosi BloGG/Forum

Kembali Ke Atas Go down
http://zoro-x-zoro.n-stars.org/
 

Membuat Animasi Bergerak/ GIF Pada Form VB6

Topik sebelumnya Topik selanjutnya Kembali Ke Atas 
Halaman 1 dari 1

Permissions in this forum:Anda tidak dapat menjawab topik
Zoro x Zoro :: ZxZ Learnings :: Programming-
Free forum | © phpBB | Free forum support | Kontak | Report an abuse | Create your own blog
VIP Rooms | Home | Portal