Membuat Transparent Form di Visual Basic 6

Pada Friday, 17 September, 2010 Jam 4:28 Di Tulis Oleh Istanto Adi Nugroho
Artikel dalam kategori dodol, Iseng, Pribadi, Tutorial

BACA ARTIKEL INI DALAM FORMAT AMP Membuat Transparent Form di Visual Basic 6

Cara membuat transparent form untuk aplikasi dengan compiler visual basic 6 mudah saja sebenarnya. Kita bisa saja memanfaatkan file ocx yang sudah dikompile, namun ini sangat tidak disarankan karena kita tidak tahu module apa saja yang ada didalam file ocx tersebut, iya kan kalau isinya virus jadinya nggak seru. Kenapa harus menggunakan transparent form? sebenarnya ini tidak wajib kok cuma biasanya orang iseng ingin supaya aplikasinya terlihat menarik… 😛

Adapun cara untuk membuat transparent form ini mudah untuk dicoba sendiri dirumah. Langkah awalnya adalah membuat sebuah project baru.

Setelah itu tambahkan kode berikut ini kedalam form tersebut :

Option Explicit
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 Declare Function SetLayeredWindowAttributes Lib “User32” _
(ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, _
ByVal dwFlags As Long) As Long

Const WS_EX_LAYERED = &H80000
Const GWL_EXSTYLE = (-20)
Const LWA_ALPHA = &H2

Private Sub form_load()
Dim rtn As Long
rtn = GetWindowLong(hwnd, GWL_EXSTYLE)
rtn = rtn Or WS_EX_LAYERED
SetWindowLong hwnd, GWL_EXSTYLE, rtn
SetLayeredWindowAttributes hwnd, 0, 200, LWA_ALPHA ‘200 adalah nilai transparant semakin kecil nilainya semakin transparant, nilai 255 untuk reset.
End Sub

Selesai deh tinggal dicoba hasilnya 😀 semakin transparant maka nilai yang diberikan harus semakin kecil.

Kamu boleh memberikan komentar, atau melakukan trackback dari blog kamu.

Kata Kunci Terkait:

  • form cantik vb6
  • membuat loading di vb6
  • membuat loading di vb 6
  • membuat login komputer dengan VB6
  • form transparan vb6
  • membuat form cantik menggunakan vb
  • cara buat form keren
  • menu cantik vb6
  • cara membuat transparent form vb 6
  • cara membuat skin form vb6
  • cara membuat form login dengan visual basic 6 0 menarik dan bagus
  • merancang form pada vb agar terlihat menarik
  • membuat form vb6 menarik
  • membuat skin vb
  • transparent form
  • tampilan vb keren
  • vb6 qr code generator
  • cara bikin dan nambah login di visual basic
  • cara buat backgroun transparan vb
  • agar tampilan form transparan pada vb
  • membuat jam digital di vb6
  • aplikasi keren dengan vb6
  • contoh form transparent vb6
  • membuat browser dengan visual basic 6
  • cara membuat form cantik di vb
  • cara membuat jam digital pada visual basic6
  • arti hwnd di vb net
  • CARA MENBUAT COMMEND DENGAN GAMBAR VB6 0
  • cara menggunakan skin pada vb 6 0
  • form login vb net keren
  • memberi gambar pada form VB
  • membuat form vb transparan
  • cara membuat form cantik menggunakan vb 6
  • cara membuat form loading di vb6
  • mengunci form vb
  • script vb 6 membuat Jam Digital
  • membuat skin form vb6
  • visual basic
  • bagaimana cara transparan pada form visual basic
  • cara mengunci form di vb
  • desain form visual basic 6 0
  • design cantik vb6
  • membuat efek transparent form vb 6 0
  • membuat form loading dengan vb
  • membuat form loading vb6
  • form visual basic
  • desain menu cantik dengan visual basic
  • membuat form vb transparent
  • cara membuat background berubah di vb6
  • membuat form transparant menggunakan vb
  • membuat login form dengan VB6
  • membuat loading pada vb 6
  • membuat skin form vb
  • membuat form transparant
  • mengatur tampilan vb6
  • Cara Membuat Form Loading vb6
  • tampilan menarik vb6
  • cara membuat form transparan pada vb
  • script vb6 untuk software toko
  • vb transparent
  • cara membuat skin vb
  • cara menambahkan form about pada vb
  • cara mengganti skin pada vb6
  • cara membuat tampilan vb6 jadi keren
  • cara membuat tampilan visual basic 6 0 agar tampak menarik
  • cara set background agar pas dengan form di visual basic
  • yoyocici background
  • cara membuat transparan form vb
  • aplikasi kunci desktop menggunakan visual basic
  • cara membuat menu utama yang menarik pada vb6
  • cara mengubah skin vb6
  • coding program mengatur tampilan pada form vb6
  • contoh aplikasi vb6 form transparan
  • contoh program skin vb
  • contoh visual basic 6
  • cara membuat jam pada visual basic 6 0
  • cara membuat loading vb6
  • cara membuat scrol di form vb
  • cara menambahkan backgroung di from vb
  • cara mendesain form pada visual basic
  • cara menggunakan skin pada vb 6
  • cara menggunakan skin vb6
  • cara mengubah gambar di layar form vb6
  • cara mudah membuat form pada visual basic 6 0
  • coding transparent form pada vb6
  • contoh aplikasi personel vb 6
  • contoh form loading di vb6
  • contoh form menarik menggunakan vb
  • contoh source code membuat scroll bar pada vb 6 0
  • contoh source vb unik
  • desain form di vb 6
  • cara membuat form vb transparent
  • Cara Membuat Hardware ID Di Visual Basic
  • cara membuat loading form di vb6
  • cara membuat login hotspot dengan visual basic 6
  • cara membuat menu di vb 6
  • cara membuat skin vb6
  • cara membuat visual basic
  • cara agar backgroun sesuai layar pada vb 6
  • cara menambahkan video ke visual basic
    Digg Del.icio.us StumbleUpon Reddit Twitter RSS

11 Komentar pada artikel “Membuat Transparent Form di Visual Basic 6”

  1. firman berkata:

    Pada September 18th, 2010 Jam 7:48 PM

    mantap mas, coba ah…
    mas btw boleh copy paste blognya gak???

    [Balas]

  2. Ukie berkata:

    Pada November 17th, 2010 Jam 1:18 PM

    maaf mas.. source code itu saya pernah buat tapi bukan di tulis di Form, yang saya coba..

    Buat sebuah Module baru lalu ketikkan :
    Option Explicit

    Private Declare Function SetWindowLong Lib “user32” Alias “SetWindowLongA” (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
    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 GetWindowLong Lib “user32” Alias “GetWindowLongA” (ByVal hwnd As Long, ByVal nIndex As Long) As Long

    Public Sub FadeForm(Frm As Form, Level As Byte)
    On Error Resume Next
    Dim msg As Long

    msg = GetWindowLong(Frm.hwnd, -20) Or &H80000
    SetWindowLong Frm.hwnd, -20, msg
    SetLayeredWindowAttributes Frm.hwnd, 0, Level, &H2
    End Sub

    Selanjutnya di bagian Form yang akan dijadikan transparan, di ‘Form_Load’ ketikkan :
    FadeForm Me, 125

    semoga membantu

    [Balas]

  3. Rizki berkata:

    Pada July 4th, 2011 Jam 12:49 PM

    gmna sih cara masukin kodenya? bingung saya.. :m002
    tlong dbantu ya… masih belajar ini…

    [Balas]

  4. arifin berkata:

    Pada August 2nd, 2011 Jam 8:59 AM

    mas mas aq coba ko ga berhasil ya, dari ke 2nya g ada yang bisa……
    mohon pencerhanya……….

    [Balas]



    Istanto Adi Nugroho berkata:
    Pada August 2nd, 2011 jam 9:55 AM


    kodenya jangan di kopi paste, tanda quota berubah kalau sudah dalam post.

    [Balas]



    Julfri berkata:
    Pada July 25th, 2012 jam 11:14 PM


    apa perlu ada penambahan project atau refrence

    [Balas]



    Istanto Adi Nugroho berkata:
    Pada July 26th, 2012 jam 8:42 PM


    tidak sudah ada di api

    [Balas]




  5. abdul rahman berkata:

    Pada January 27th, 2012 Jam 11:45 AM

    thx mas .. 
    untuk ilmu nya.. 
    form transparant nya keren …

    [Balas]

  6. eko berkata:

    Pada January 18th, 2013 Jam 2:53 PM

    coba activex EcoCollection.dll lebih bnyak fungsi
    https://ecoframework.wordpress.com/

    [Balas]

  7. KaelynAdult berkata:

    Pada April 4th, 2020 Jam 7:33 PM

    Hello to all
    In this difficult continuously, I disposition you all
    Appreciate your strain and friends

    [Balas]

Berikan Komentar

[+] yoyocici emoticons Istanto Personal Blog