Posts Subscribe comment Comments

SAMPLE



Thanks For

Membuat Form Dengan Gambr .gif

 1. Download dulu File yg satu ini Here

2. Jangan lupa Berdo'a hihiihi

3. Klik Tab Commponent Dengan cara CTRL + T Browse dehh tuh File yg udah di Dondot tadi :

4. Klik Apply >> Close ., Muncul dehh Icon Baru dengan nama GIF di Kotak sebelah kiri. Klik Iconnya dah terserah mau segimana Ukurannya.. Browse Gambar GIF nya. Ok


Jika Mau Lebih Sempurna Hilangkan tepian Form . Cranya Disini:

Membuat Form Transparant/Background Hilang
Quote
- 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 warna Hitam dan Putih (saya sarankan memakai warna merah) .
-Buat Border Stylenya : 0-None
-Caranya Liat Di Propeties Form , Ada tulisan BackColor : Isi Dengan Warna Apa Saja, Kecuali warna Hitam dan Putih (saya sarankan memakai warna merah)


Silahkan Buat 1 Module .
Dan Isi Code berikut:

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
 
 
 
 
 

0

Silahkan Tulis Komentar Anda ...