Membuat form transparan pada VB 6.0
Di kesempatan kali ini saya akan memberitahu anda tutorial membuat form transparan pada vb 6.0,
langsung saja caranya sebagai berikut:
- buka vb standar exe
- tambahkan 2 command, masing-masing beri caption “Transparan” dan yang satu lagi “Normal
- Tambahkan koding berikut di Option Explicit:
‘============
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
‘---------------------------
Ketikan koding dibawah untuk membuat form Transparan
(Command Transparan)
‘================
Private Sub Trans_Click()
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
‘---------------------------
Ketikan koding dibawah untuk membuat form kembali Normal
(Command Normal)
‘================
Private Sub Normal_Click()
Call SetWindowLong(Me.hwnd, GWL_EXSTYLE,
GetWindowLong(Me.hwnd, GWL_EXSTYLE) Or WS_EX_LAYERED)
Call SetLayeredWindowAttributes(Me.hwnd, RGB(255, 0, 255),
255, LWA_ALPHA Or LWA_COLORKEY)
End Sub
‘----------------------------
dan hasilnya sebagai berikut:
