Cara Membuat Form Transparant Menggunakan Visual Basic 6.0

Cara Membuat Form Transparant Menggunakan Visual Basic 6.0 | Gho Blog's - Setelah sekian lama gak update posting tentang pemrograman Visual Basic 6.0. Kali ini saya akan membagikan lagi sedikit ilmu coding yang saya punya.

Kali ini  kita akan membahas bagaimana caranya membuat form dengan tampilan transparant alias tembus pandang. Mudah-mudahan bisa bermanfaat dan bisa menambah ide sobat dalam membuat disain form yang lebih menarik.

Untuk uji coba yang pertama, silakan sobat ikuti langkah-langkah berikut ini :

• Buka sebuah project kemudian tambahkan satu buah form
• Tambahkan sebuah Module terlebih dahulu dengan cara : pilih menu Project kemudian Klik Add Module.
• Masukkan script berikut ini ke Module tersebut :

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 Declare Function UpdateLayeredWindow Lib "user32" (ByVal hWnd As Long, ByVal hdcDst As Long, pptDst As Any, psize As Any, ByVal hdcSrc As Long, pptSrc As Any, crKey As Long, ByVal pblend As Long, ByVal dwFlags As Long) As Long 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 Const GWL_EXSTYLE = (-20) Private Const LWA_COLORKEY = &H1 Private Const LWA_ALPHA = &H2 Private Const ULW_COLORKEY = &H1 Private Const ULW_ALPHA = &H2 Private Const ULW_OPAQUE = &H4 Private Const WS_EX_LAYERED = &H80000 Public Function isTransparent(ByVal hWnd As Long) As Boolean On Error Resume Next Dim Msg As Long Msg = GetWindowLong(hWnd, GWL_EXSTYLE) If (Msg And WS_EX_LAYERED) = WS_EX_LAYERED Then isTransparent = True Else isTransparent = False End If If Err Then isTransparent = False End If End Function Public Function MakeTransparent(ByVal hWnd As Long, Perc As Integer) As Long Dim Msg As Long On Error Resume Next If Perc < 0 Or Perc > 255 Then MakeTransparent = 1 Else Msg = GetWindowLong(hWnd, GWL_EXSTYLE) Msg = Msg Or WS_EX_LAYERED SetWindowLong hWnd, GWL_EXSTYLE, Msg SetLayeredWindowAttributes hWnd, 0, Perc, LWA_ALPHA MakeTransparent = 0 End If If Err Then MakeTransparent = 2 End If End Function Public Function MakeOpaque(ByVal hWnd As Long) As Long Dim Msg As Long On Error Resume Next Msg = GetWindowLong(hWnd, GWL_EXSTYLE) Msg = Msg And Not WS_EX_LAYERED SetWindowLong hWnd, GWL_EXSTYLE, Msg SetLayeredWindowAttributes hWnd, 0, 0, LWA_ALPHA MakeOpaque = 0 If Err Then MakeOpaque = 2 End If End Function

• Setelah itu, buka form kemudian double klik pada form tersebut dan masukkan script berikut tepat diantara Private Sub Form_Load() dengan End Sub

MakeTransparent Me.hWnd, 100

• Coba jalankan program tersebut dan lihat hasilnya.

Keterangan :

1. Angka 100 merupkan tingkat transparansi form. 
2. Form akan tampak normal apabila tingkat transparansi = 255
3. Form akan menghilang bila tingkat trnsparansi = 0
4. Batas transparansi antara 0 - 255.

Sekarang kita coba melakukan sedikit modifikasi, kita akan menggunakan ComboBox untuk mengatur secara manual tingkat transparansi pada sebuah form. Silakan sobat ikuti langkah-langkah berikut ini :

• Buatlah disain form seperti gambar dibawah ini :

• Kemudian double klik pada form dan masukkan / ganti script sebelumnya dengan script berikut ini tepat diantara Private Sub Form_Load() dengan End Sub.

Combo1.AddItem "50" Combo1.AddItem "100" Combo1.AddItem "150" Combo1.AddItem " 200" Combo1.AddItem " 230" Combo1.AddItem "Normal - 255"

• Kemudian double klik pada Combo1, pilih Procedure Click seperti gambar berikut :

• Masukkan script berikut ini tepat diantara Private Sub Combo1_Click() dengan End Sub :

If Combo1.Text = "Normal - 255" Then MakeTransparent Me.hWnd, 255 Else MakeTransparent Me.hWnd, Combo1.Text End If

• Coba jalankan program tersebut, sobat bisa mengatur tingkat transparansi sesuai dengan angka yang bisa sobat pilih melalui ComboBox.

Jika sobat masih bingung, sobat bisa download contoh programnya disini :

Atau :

Sekian dulu pembahasan kali ini yang berjudul Cara Membuat Form Transparant Menggunakan Visual Basic 6.0. Semoga bermanfaat dan selamat mencoba.