put timer in form and put this code in general
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Function SetLayeredWindowAttributes _
Lib "user32.dll" (ByVal hwnd As Long, ByValcrKey As _
Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Boolean
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 GetWindowLong Lib "user32" _
Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Const LWA_ALPHA = 2
Const GWL_EXSTYLE = (-20)
Const WS_EX_LAYERED = &H80000
Dim i As Integer
Private Sub Form_Load()
i = 0
Timer1.Interval = 1
End Sub
Private Sub Timer1_Timer()
i = i + 1
SetWindowLong hwnd, GWL_EXSTYLE, GetWindowLong _
(hwnd, GWL_EXSTYLE) Or WS_EX_LAYERED
SetLayeredWindowAttributes hwnd, 0, i, LWA_ALPHA
If i = 255 Then
Timer1.Enabled = False
End If
End Sub
Interpreter and redeployed from vb4arb
0 التعليقات:
إرسال تعليق