Minggu, 01 April 2012

Cara Membuat Form Transparant [VB]

Contoh Form Transparant
Pertama buat Form Standard Exe, kemudian paste kan code tersebut di Form_load :
SetTransparan Me.hwnd, 200, True 'yang angka 200 itu adalah set stransfarannya

Kedua buat 1 Module baru dan pastekan code berikut :
Private Declare Function _
    SetLayeredWindowAttributes Lib "user32.dll" _
    (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
Private Declare Function SetWindowLong Lib _
    "user32" Alias "SetWindowLongA" _
    (ByVal hwnd As Long, ByVal nIndex As Long, _
    ByVal dwNewLong As Long) As Long
Public Sub SetLayeredWindow(ByVal hwnd _
    As Long, ByVal bIslayered As Boolean)
    Dim WinInfo As Long
    WinInfo = GetWindowLong(hwnd, -20)
    If bIslayered = True Then
            WinInfo = WinInfo Or 524288
    Else
            WinInfo = WinInfo And Not 524288
    End If
    SetWindowLong hwnd, -20, WinInfo
End Sub
Public Sub SetTransparan(ByVal hwnd _
    As Long, ByVal Opacity As Byte, _
    IsTransparent As Boolean)
    If IsTransparent = True Then
            SetLayeredWindow hwnd, True
            SetLayeredWindowAttributes hwnd, _
                    0, Opacity, 2
    ElseIf IsTransparent = False Then
            SetLayeredWindow hwnd, False
    End If
End Sub

Selesai..
Kalo masih ada yang kurang jelas bisa di langsung di tanyakan, jangan pernah malu bertanya sobat. :D


Artikel Terkait

0 comments:

Posting Komentar