Club Cooee

Senin, 07 Mei 2012

0 cara Membuat form transparant

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


Read more: http://njank-njutz.blogspot.com/2012/04/cara-membuat-form-transparant.html#ixzz1uAMCwH4Q

0 komentar:

Posting Komentar