Cara Membuat Form Tembus Pandang (Glass) Dengan Visual Basic 6.0

Cara Membuat Form Tembus Pandang (Glass) Dengan Visual Basic 6.0 | Gho Blog's - Jika pada posting sebelumnya  saya membagikan tutorial cara membuat form transparant, kali ini gak jauh beda dengan tutorial tersebut. Hanya saja ada sedikit perbedaan tampilan dari form yang  akan kita buat pada posting kali ini dengan form transparant pada posting sebelumnya.

Perbedaannya adalah, jika pada form transparant, tampilan form menjadi lebih buram atau kabur, sedangkan form tembus pandang yang saya maksud pada posting ini adalah, form akan terlihat seperti kaca bening.

untuk lebih jelasnya, mari kita cobakan dengan mengikuti langkah-langkah berikut ini :

• Buka sebuah project dan form yang akan kita berikan efek tembus pandang.
• Kemudian masukkan script berikut pada bagian code editor :

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_EXSTYLE = (-20) Private Const WS_EX_LAYERED = &H80000 Private Const LWA_COLORKEY = &H1

• Jika sudah double klik pada form dan masukkan script berikut ini tepat diantara Private Sub Form_Load() dengan End Sub :

Me.Move Screen.Width - Me.Width, 0 Me.BackColor = vbCyan SetWindowLong Me.hwnd, GWL_EXSTYLE, GetWindowLong(Me.hwnd, GWL_EXSTYLE) Or WS_EX_LAYERED SetLayeredWindowAttributes Me.hwnd, vbCyan, 0&, LWA_COLORKEY

• Cobalah running form tersebut dan lihat hasilnya ....

Berikut ini hasil dari pembuatan form tembus pandang yang barusan kita buat :

Untuk lebih jelasnya sobat bisa download contoh programnya disini :

Sekian posting kami yang berjudul Cara Membuat Form Tembus Pandang (Glass) Dengan Visual Basic 6.0. Selamat mencoba dan semoga bermanfaat...