Membuat Form Transparan VB 6.0

Tutorial kali ini saya akan sedikit memberikan cara untuk mempercantik tampilan program yang kita buat. Sederhana saja, disini kita hanya membuat form dari program yang kita buat menjadi transparan, atau tembus pandang seperti gambar dibawah ini.

Form Transparan

Langsung saja ikuti langkah-langkah berikut untuk membuat Form transparan –

-          Buat Standard Exe

-          Lalu tambahkan 2 command, beri caption “Transparan” dan yang satu lagi “Normal”

-          Lalu tambahkan koding-koding dibawah..^^)b

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

‘----------------------------

Kemudian Run, dan lihat hasilnya.^^)b

Perlu diperhatikan, pada Command Transparan dan Command Normal kodingnya hampir sama. Yang membedakan adalah angka 128 (pada command Transparan) dan 255 (pada Command normal). Disini berarti anda dapat mengatur ketajaman transparan form dengan mengatur angka dari 0 – 255. Tentunya semakin kecil angkanya maka semakin tidak terlihat form anda.

Tips :

Untuk membuat form transparan dari awal, koding untuk command trans diatas dapat diganti jadi diletakan pada event form load. Jadi form akan transparan dari saat awal muncul. Dan command normal bisa dihilangkan. ^^)b

Semoga bermanfaat…

Thank’s

Download Form Transparan