Idézet: eMeM - Dátum: 2006. márc. 14., kedd - 13:20
kifejtenéd?
Nem szivesen... szeretnelek lebeszelni arrol, hogy kezdokent belemassz a Windows API-ba, mert csunya dolgokat csinalhatsz a gepeddel!
Azon kivul pedig sajat felelossegedre:
Const LWA_COLORKEY = &H1
Const LWA_ALPHA = &H2
Const GWL_EXSTYLE = (-20)
Const WS_EX_LAYERED = &H80000
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
Private Sub Form_Load()
'KPD-Team 2000
'URL:
http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
Dim Ret As Long
'Set the window style to 'Layered'
Ret = GetWindowLong(Me.hWnd, GWL_EXSTYLE)
Ret = Ret Or WS_EX_LAYERED
SetWindowLong Me.hWnd, GWL_EXSTYLE, Ret
'Set the opacity of the layered window to 128
SetLayeredWindowAttributes Me.hWnd, 0, 128, LWA_ALPHA
End Sub
A kodban levo komment-URL egy remek APIGuide nevu cuccot rejt... de elobb inkabb olyan kerdesekre kell megtanulni a valaszt, hogy mire jo a QueryUnload... peldaul...
Udv,
Merlot