Sunday, April 7, 2013

Cara Membuat Form Transparan Pada Visual Basic

Kembali lagi pada postingan kali ini saya akan membagikan tutorial cara membuat Form pada aplikasi menjadi Transparan ( tembus pandang ), contohnya bisa kalian lihat pada gambar di bawah berikut :


Transparansi tersebut bisa kalian dapatkan dengan menggunakan sedikit kode yang di letakan di dalam form, oke kalau begitu langsung saja praktekan cara-cara berikut ini :

#1 : Pertama klik dua kali pada bagian form mana saja, kemudian pilih ke bagian General dan masukkan seluruh kode berwarna merah berikut ke dalamnya:

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 Form_Load()

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

Setelah di masukan sekarang di test dulu menggunakan tombol F5 pada keyboard dan lihat hasilnya, bagaiama gampang kan? kalian bisa berkerasi menggunakan elemen-elemen lainnya dengan form transparan sehingga menjadi lebih keren.

Baik sekian dulu postingan kali ini semoga dapat bermanfaat dan Terima Kasih!

1 comment


EmoticonEmoticon