Cara Membuat Form Transparan dan Normal VB 6.0

Halo Sobat Tutorial VB, Pada tutorial VB ( visual basic ) dasar untuk pemula kali ini kita akan mencoba membuat Form Transparan dan Normal untuk mempercantik tampilan program yang kita buat. 

disini kita hanya membuat form dari program yang kita buat menjadi transparan, atau tembus pandang seperti gambar dibawah ini.

nah jika pada gambar 1 (satu) tampak form normal sedangkan pada gambar 2 (dua) tampak form transparan. Nah bagaimana membuat Form Transparan dan Normal mari kita ikuti tutorial di bawah ini
Buat Standard Exe

-     Lalu tambahkan 2 command

      Command1 beri caption Transparan

      Command2 beri caption Normal

Lalu masukan kode di bawah ini

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 Command1_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

Private Sub Command2_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

Selamat Mencoba