수다닷컴

페이드인 페이드 아웃 소스가 이거에요 ---------------------------------------------------------------------------------------------------------------- Option ExplicitPrivate Const GWL_EXSTYLE = (-20)
Private Const WS_EX_LAYERED = &H80000
Private Const LWA_ALPHA = &H2&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 crey As Byte, ByVal bAlpha As Byte, ByVal dwFlags As Long) As LongPrivate Const fade As Integer = 8
Dim alpha As Integer
Dim exitable As BooleanPrivate Sub Form_Load()
Call SetWindowLong(Me.hwnd, GWL_EXSTYLE, GetWindowLong(Me.hwnd, GWL_EXSTYLE) Or WS_EX_LAYERED)
alpha = 0
Timer1.Enabled = True
Timer1.Interval = 10
Call Timer1_Timer

Timer2.Enabled = False
Timer2.Interval = 10
exitable = False
End SubPrivate Sub Form_Unload(Cancel As Integer)
If exitable = False Then
Timer2.Enabled = True
Cancel = True

End If
End SubPrivate Sub Timer1_Timer()
alpha = alpha + fade
If alpha = 255 Then
alpha = 255
Timer1.Enabled = False
End If
Call SetLayeredWindowAttributes(Me.hwnd, 0, alpha, LWA_ALPHA)End SubPrivate Sub Timer2_Timer()
alpha = alpha - fade
If alpha = 0 Then
alpha = 0
Timer2.Enabled = False
exitable = True
End If
Call SetLayeredWindowAttributes(Me.hwnd, 0, alpha, LWA_ALPHA)
End Sub
-------------------------------------------------------------------------------------------------------------------여기중에서 어디다가 무엇을 넣어야지 저절로 켜졌다 저절로 unload 되게 만드나요?

신청하기