Cara Membuat Form Transparan Pada Vb6

Kembali lagi kali ini soal Visual Basic dan saya akan membagikan sebuah kode untuk membuat form transparan untuk visual basic 6.0 dan berikut 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, jika berhasil selamat atau jika kode gagal di eksekusi silahkan komentar pada kolom di bawah ya nanti akan saya bantu sebisa mungkin..

1 Response to "Cara Membuat Form Transparan Pada Vb6"