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../.

BIAR MUDAH DI COPY DIBAWAH ADA TEKAN Ctrl+C

Option Explicit<br /> Private Declare Function GetWindowLong Lib “User32″ Alias _<br /> “GetWindowLongA” (ByVal hwnd As Long, ByVal nIndex As Long) As Long<br /> <br /> Private Declare Function SetWindowLong Lib “User32″ Alias _<br /> “SetWindowLongA” (ByVal hwnd As Long, ByVal nIndex As Long, _<br /> ByVal dwNewLong As Long) As Long<br /> <br /> Private Declare Function SetLayeredWindowAttributes Lib “User32″ _<br /> (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, _<br /> ByVal dwFlags As Long) As Long<br /> <br /> Const WS_EX_LAYERED = &H80000<br /> Const GWL_EXSTYLE = (-20)<br /> Const LWA_ALPHA = &H2<br /> <br /> Private Sub form_load()<br /> Dim rtn As Long<br /> rtn = GetWindowLong(hwnd, GWL_EXSTYLE)<br /> rtn = rtn Or WS_EX_LAYERED<br /> SetWindowLong hwnd, GWL_EXSTYLE, rtn<br /> SetLayeredWindowAttributes hwnd, 0, 200, LWA_ALPHA ’200 adalah nilai transparant semakin kecil nilainya semakin transparant, nilai 255 untuk reset.<br /> End Sub

Tweet