Membuat Form Transparan Dalam Vb 6.0

Membuat Form Transparan Dalam Vb 6.0

Assalamu'alaikum wr.wb

  Hy sobat-sobat ku, kali ini saya akan memberitahukan bagaimana cara membuat form menjadi transparan dalam vb 6.0, akan tetapi dalam tutorial ini yang transparan hanyalah formnya saja bukan form dan seluruh komponen di dalamnya, Ok deh sekarang kita langsung aja ya??

Berikut langkah-langkahnya :

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

2. Ubah properties BlackColor dan BorderStyle form seperti terlihat pada gambar di bawah dan           pada properties Picture masukkan gambar yang anda pilih,, contohnya disini saya memasukan           gambar yag bernama PC.gif.

3. Tambahkan juga sebuah modul ke dalam project, kemudian ketiklah perintah di bawah ini.

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 Boolean

Public Declare Function GetwindowLong Lib "user32" Alias "GetwindowlongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Sub settranspran(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

   Exit Sub

err:

    MsgBox err.Description & "source :" & err.Source

   

End Sub

4.  Kembali ke tampilan desain dan klik ganda di dalam area form. Ubahlah prosedur form_Load              menjadi Form_Activate. Ketiklah perintah di bawah ini pada bagian General dan Form_Activate.

Option Explicit

Dim color As Long, flag As Byte

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

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

selesai deh, ok sekarang kalian bisa coba deh tutorial di atas, moga tutorial diatas dapat membantu, Terimakasih :)