Cara Membuat Form Transparan Pada Visual Basic 6

Minggu, 07 April 2013

Teman-teman kali ini saya akan membagikan sebuah kode untuk membuat form transparan untuk visual basic 6.0 dan berikut adalah caranya:


Pertama masuk dulu ke bagian CODEC untuk mengkode aplikasinya atau dengan cara klik dua kali pada bagian form mana saja, kemudian pilih ke bagian general dan masukkan kode berikut ke dalamnya:


Option Explicit

Private Const WS_EX_LAYERED = &H80000
Private Const GWL_EXSTYLE = (-20)
Private Const LWA_COLORKEY = &H1
Private Const LWA_ALPHA = &H2

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crColor As Long, ByVal nAlpha As Byte, ByVal dwFlags As Long) As Long

Private Sub Form_Load()
Call SetWindowLong(Me.hwnd, GWL_EXSTYLE, GetWindowLong(Me.hwnd, GWL_EXSTYLE) Or WS_EX_LAYERED)
Call SetLayeredWindowAttributes(Me.hwnd, RGB(255, 0, 255), 128, LWA_ALPHA Or LWA_COLORKEY)
End Sub



Setelah masukkan silahkan di test dengan cara menekan tombol F5 dan selesai :)
Jangan lupa follow saya ya @kenhondar makasih :)

1 komentar :