Tutorial Membuat Form Visual Basic Transparan

Trik berikutnya kita akan membuat form yang kita desain menjadi transparan.

1.      Buka program Visual Basic 6.0 dan mulailah dengan form baru.

2.      Ubahlah properties  BlackColor dan BorderStyle form seperti terlihat pada gambah dibawah ini dan propertis Picture masukkan gambar yang anda inginkan.

1.      Tambahkan juga sebuah modul kedalam project, kemudian ketiklah perintah di bawah ini.

1 2 3 4 5 6 7 8 9

Option Explicit Public Const LWA_COLORKEY = 1 Public Const LWA_ALPHA = 2 Public Const LWA_BOTH = 3 Public Const WS_EX_LAYERED = &H80000 Public Const GWL_EXSTYLE = -20 Public Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal warna As Long, ByVal X As Byte, ByVal alpha As Long) As Boolean Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

10 11 12 13 14 15 16 17 18 19

Sub setTransparan(frm As Long, warna As Long, ntrans As Integer, flag As Byte) On Error GoTo err Dim attrib As Long attrib = GetWindowLong(frm, GWL_EXSTYLE) SetWindowLong frm, GWL_EXSTYLE, attrib Or WS_EX_LAYERED SetLayeredWindowAttributes frm, warna, ntrans, flag Exit Sub err:    MsgBox err.Description & " source : " & err.Source    End Sub

Keterrangan Kode

1-6 7-9 10 11-12 13-15

Perintah yang akan mewajibkan anda mendeklarasikan semua variabel yang digunakan dan mendeklarasikan beberapa variabel konstan/tetap yang akan digunakan dalam fungsi yang akan dibuat nanti. Mendeklarasikan beberapa fungsi API yang berhubungan dengan window atau jendela. Membuat fungsi dengan nama SetTransparan dengan nilai input window frm, warna, nTrans dan flag. Apabila terjadi kesalahan, maka perintah yang akan dibaca adalah perintah yang terdapat pada baris 18 di bawah variabel Err yang dituju dan mendeklarasikan variabel attrib dengan tipe data Long. Mangisi variabel attrib dan menentukan nilai dari fungsi API yang digunakan.

2.      Kembali ke tampilan desain dan klik ganda di dalam area form. Ubahlah prosedur Form_Load menjadi Form_Activate. Ketiklah perintah dibawah ini pada bagian General  dan Form_Activate.

1 2	Option Explicit Dim color As Long, flag As Byte
3 4 5 6 7 8 9 10	Private Sub Form_Activate()    On Error GoTo err    color = vbBlue    flag = flag Or LWA_COLORKEY    setTransparan Form1.hwnd, color, 0, flag    Exit Sub err: MsgBox err.Description & " Source:" & err.Source End Sub

3.      Untuk melihat hasilnya, tekan tombol F5 pada keyboard anda.