Cara Membuat Form Bening Menggunakan Visual Basic 6.0

Tips,Trick dan Cara Membuat Form Bening Menggunakan Visual Basic 6.0

Bahan Bahan :

• 1Module
• 2Timer = Interval 200
• 3. Visual Basic 6.0 [ Download VB 6 Disini ]

Tutorial :
1. Masukan Code berikut pada Form yang akan di Beningkan.

Private Sub Form_Load()
SetTransparan Me.hwnd, 200, True
End Sub

2. Buat 1Module, dan Masukan Code berikut.

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
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
Public Sub SetLayeredWindow(ByVal hwnd _
As Long, ByVal bIslayered As Boolean)
Dim WinInfo As Long
WinInfo = GetWindowLong(hwnd, -20)
If bIslayered = True Then
WinInfo = WinInfo Or 524288
Else
WinInfo = WinInfo And Not 524288
End If
SetWindowLong hwnd, -20, WinInfo
End Sub
Public Sub SetTransparan(ByVal hwnd _
As Long, ByVal Opacity As Byte, _
IsTransparent As Boolean)
If IsTransparent = True Then
SetLayeredWindow hwnd, True
SetLayeredWindowAttributes hwnd, _
0, Opacity, 2
ElseIf IsTransparent = False Then
SetLayeredWindow hwnd, False
End If
End Sub