ZraIlyas Management
Gender : Jumlah posting : 204 Join date : 18.04.11 Age : 25 Lokasi : http://zoro-x-zoro.n-stars.org/
| Subyek: 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 Here2.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:
Posted Image
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 |
|