Membuat Form Transparan Di VB6.0

Pada postingan kali ini saya bagikan tentang cara membuat form transparan pada VB 6.0. Maksudnya adalah form yang kita gunakan pada VB tidak terlihat, namun objek atau komponen yang kita gunakan didalamnya dapa dilihat sebagai mana mestinya. Seperti yang anda lihat pada gambar diatas. Cara membuatnya adalah :

1. Sediakan sebuah gambar, jika anda ingin seperti gambar diatas silahkan download disini.
2. Buka VB anda, atur properti borderstyle Form1 menjadi 0-none

3. Masukkan komponen image, atur properti picture image1. Klik tanda  ... pilih lokasi gambar yang tadi telah anda download atau gambar apa saja yang anda inginkan.
4. Buka jendela Code Editor
5. Paste kan Code berikut ini.

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 crKey As Long, _
ByVal bAlpha As Byte, _
ByVal dwFlags As Long) As Long
    
Private Const GWL_STYLE = (-16)
Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_LAYERED = &H80000
Private Const LWA_COLORKEY = &H1
Private Const LWA_ALPHA = &H2
Private Sub Form_Load()
Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2
Image1.Height = 3015
Image1.Width = 4575
Image1.Stretch = True
Me.BackColor = vbCyan
SetWindowLong Me.hwnd, GWL_EXSTYLE, GetWindowLong(Me.hwnd, GWL_EXSTYLE) Or WS_EX_LAYERED
SetLayeredWindowAttributes Me.hwnd, vbCyan, 0&, LWA_COLORKEY
End Sub


Coba Run Aplikasi anda, jika ada debug silahkan anda Komen dibawah ini !
Jika ingin lebih simpel lagi, silahkan anda download disini, Setelah selesai anda download klik kanan file transparan but visible control.zip klik extract here setelah selesai jalankan project1.vbp

Berita Terkait