Re: Spam Re: [Programmer-VB] From Transparan

[skdmdn]

 mas, functionnya ditauh dimana? dan gimana cara manggilnya? ----- Original Message ----- From: Purwedi Kurniawan To: Programmer-VB@yahoogroups.com Sent: Friday, February 03, 2006 10:34 AM Subject: Spam Re: [Programmer-VB] From Transparan ehm... transparan form :) bisa sih, tapi ini hanya bisa jalan di win2K/XP   best regards [wwn]   '---------------------------------------   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 UpdateLayeredWindow Lib "user32" (ByVal hwnd As Long, ByVal hdcDst As Long, pptDst As Any, psize As Any, ByVal hdcSrc As Long, pptSrc As Any, crKey As Long, ByVal pblend As Long, 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 Private Const GWL_EXSTYLE = (-20) Private Const LWA_COLORKEY = &H1 Private Const LWA_ALPHA = &H2 Private Const ULW_COLORKEY = &H1 Private Const ULW_ALPHA = &H2 Private Const ULW_OPAQUE = &H4 Private Const WS_EX_LAYERED = &H80000 Public Function MakeTransparent(ByVal hwnd As Long, ByVal Perc As Integer) As Long    Dim Msg As Long    On Error Resume Next        Perc = ((100 - Perc) / 100) * 255    If Perc < 0 Or Perc > 255 Then      MakeTransparent = 1    Else      Msg = GetWindowLong(hwnd, GWL_EXSTYLE)      Msg = Msg Or WS_EX_LAYERED      SetWindowLong hwnd, GWL_EXSTYLE, Msg      SetLayeredWindowAttributes hwnd, 0, Perc, LWA_ALPHA      MakeTransparent = 0    End If    If Err Then      MakeTransparent = 2    End If End Function Public Function IsTransparent(ByVal hwnd As Long) As Boolean    On Error Resume Next    Dim Msg As Long    Msg = GetWindowLong(hwnd, GWL_EXSTYLE)    If (Msg And WS_EX_LAYERED) = WS_EX_LAYERED Then      IsTransparent = True    Else      IsTransparent = False    End If    If Err Then      IsTransparent = False    End If End Function On 2/3/06, skdmdn <[EMAIL PROTECTED]> wrote: Teman2 VB,   Ada yg punya script buat form transparan gak? Please dibagi ya.... Thank's B4 Wahana Programmer Groups Links <*> Untuk mengunjungi sponsor milis ini, klik link berikut:     http://wahanaprogrammer.net <*> Untuk menghubungi owner milis ini, kirim email ke:     [EMAIL PROTECTED] <*> Konsultasi pemrogramman bisa chat disini:     Yahoo! Messenger: wahanaprogrammer YAHOO! GROUPS LINKS  Visit your group "Programmer-VB" on the web.    To unsubscribe from this group, send an email to:   [EMAIL PROTECTED]    Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service. Wahana Programmer Groups Links <*> Untuk mengunjungi sponsor milis ini, klik link berikut:     http://wahanaprogrammer.net <*> Untuk menghubungi owner milis ini, kirim email ke:     [EMAIL PROTECTED] <*> Konsultasi pemrogramman bisa chat disini:     Yahoo! Messenger: wahanaprogrammer SPONSORED LINKS Programmer Indonesia Basic programming language Computer programming languages Programming languages Java programming language YAHOO! GROUPS LINKS  Visit your group "Programmer-VB" on the web.    To unsubscribe from this group, send an email to:  [EMAIL PROTECTED]    Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.