Các chiêu thức trong lập trình Làm cho ứng dụng từ từ rõ dần khi Load và mờ dần khi Unload

Làm cho ứng dụng từ từ rõ dần khi Load và mờ dần khi Unload Binh khí : 2 cái đồng hồ Xuất xứ : www.caulacbovb.com Đoạn mã : Private Declare Function GetWindowLong Lib "user32" Alias "Get

Làm cho ứng dụng từ từ rõ dần khi Load và mờ dần khi Unload

Binh khí : 2 cái đồng hồ

Xuất xứ : www.caulacbovb.com

Đoạn mã :

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 Const GWL_EXSTYLE = (-20)

Private Const LWA_ALPHA = &H2

Private Const WS_EX_LAYERED = &H80000

Dim m_lAlpha

Private Sub Form_Load()

Dim lStyle As Long

lStyle = GetWindowLong(Me.hWnd, GWL_EXSTYLE)

lStyle = lStyle Or WS_EX_LAYERED

SetWindowLong Me.hWnd, GWL_EXSTYLE, lStyle

SetLayeredWindowAttributes Me.hWnd, 0, 0, LWA_ALPHA

Timer1.Interval = 100

Timer2.Interval = 100

Timer2.Enabled = False

Timer1.Enabled = True

End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

If UnloadMode <> vbFormCode Then

Cancel = True

Timer2.Enabled = True

End If

End Sub

Private Sub Timer1_Timer()

m_lAlpha = m_lAlpha + 15

If (m_lAlpha > 255) Then

m_lAlpha = 255

Timer1.Enabled = False

Else

SetLayeredWindowAttributes Me.hWnd, 0, m_lAlpha, LWA_ALPHA

End If

End Sub

Private Sub Timer2_Timer()

m_lAlpha = m_lAlpha - 15

If (m_lAlpha < 0) Then

m_lAlpha = 0

Unload Me

Else

SetLayeredWindowAttributes Me.hWnd, 0, m_lAlpha, LWA_ALPHA

End If

End Sub