Cara membuat form transparan di visual basic

Sudah hal yang pasti bahwa semua programmer menginginkan tampilan program yang dibuatnya terlihat bagus dan enak dipandang, ini salah satu triknya untuk membuat tampilan program anda lebih keren dan bonafid. Karna itu simak tutorial membuat form transparan divisual basic di blog ini OK..

Langkah-langkah untuk membuat form transparan :

1. Buka program Visual Basic anda dan mulai dengan form baru
2. Karna kita akan memanipulasi form, maka kita atur dulu ropertis formnya, berikut dibawah ini penjelasan propertisnya jangan terlewatkan karena ini termasuk hal yang penting untuk membuat program berjalan sebagaimana mestinya.
• Form
• Name = Form1 (Anda bisa merubah nama form tetapi nanti dalam listing event FORM_ACTIVE nya harus sesuai dengan nama form anda ya, sementara ikuti dulu seperti yang saya jelaskan nama formnya Form1)
• BackColor = &H00FF0000& (warna background harus warna Biru)
• BorderStyle = 0-none (Hilangkan border formnya)
• StartUpPosition = 2-CenterScreen (Supaya form berada ditengah layar)
• Image
• Name = image1
• Picture = Pilih gambar sesuai dengan keinginan anda, gambar dianjurkan berformat .GIF karna gambar berformat .GIF biasanya tanpa warna latar belakang/transfaran

1. Double klik form dan tempatkan pointer pada bagian Declaration (bagian paling atas pada editor kode) 2. Masukan kode dibawah pada bagian paling atas (Declaration)

Option Explicit
Dim color As Long, flag As Byte

3. Masukan kode dibawah ini pada bagian form_Activate()

Private Sub Form_Activate()
    On Error GoTo err
    color = vbBlue
    flag = flag Or LWA_COLORKEY
    SetTransparan1 Form1.hwnd, color, 0, flag

    Exit Sub
err: MsgBox err.Description & " Source : " & err.Source
End Sub

4. Buat modul baru dengan klik kanan pada box project lalu pilih Add - module
    Masukan listing kode dibawah ini pada modul

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

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

5. Jalankan dengan menekan tombol F5 pada keyboard anda, Bagaimana hasilnya...? anda akan lihat sendiri dan bangga atas program anda. Selamat mencoba
 

Sekian tutorial dari saya cara membuat form transparan