CARA MEMBUAT FORM TRANSPARAN DI VISUAL BASIC

Cara membuat form transparan di visual basic

Assalamualaikum wr, wb..

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)
3. Option Explicit
   Dim color As Long, flag As Byte
4. Masukan kode dibawah ini pada bagian form_Activate()
5. 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
6. Buat modul baru dengan klik kanan pada box project lalu pilih Add - module
7. Masukan listing kode dibawah ini pada modul
8. 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
9. Jalankan dengan menekan tombol F5 pada keyboard anda, Bagaimana hasilnya...? anda akan lihat sendiri dan bangga atas program anda. Selamat mencoba
10.  
    
11.  Wassalam.. n smoga bermanfaat...
    
    
    Ikuti tip trik unik yang berhubungan dengan pemrograman di blog bercode.blogspot.com