وبلاگ رسمی مهدی غلامی میاندهی

آیا می خواهید وقتی برنامه خود را اجرا می كنید برنامه با افكت Fade باز بشه؟
پس این آموزش را تا آخرش بخونید.توضیحی راجب افكت Fade برای اون هایی كه هنوز نفهمیدن: خب بذارید اول با یه مثال شروع كنم: مثلاً بعضی از كرك های برنامه ها را دیده اید كه وقتی باز می شوند اول مهو هستند و كم كم پررنگ می شوند تا این كه كاملاً ظاهر می شوند؟ به این افكت Fade می گویند. دیگه می دونم كه همه مطلب رو گرفته اند و نیاز به توضیح بیشتری نیست.

خوب حالا بریم سر آموزشمون:

اول یك Timer به فرمتون اضافه كنید و Interval اون رو به 10 تغییر دهید.
حالا كد زیر رو در قسمت جنرال فرمتون كپی كنید:

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

Dim Opacity

Private Sub Fade(ByVal Opacity)
Dim Retval As Long
Retval = GetWindowLong(hWnd, -20)
Retval = Retval Or 524288
SetWindowLong hWnd, -20, Retval
SetLayeredWindowAttributes hWnd, 0, Val(Opacity), 2
End Sub

Private Sub Form_Load()
Opacity = 0
End Sub

Private Sub Timer1_Timer()
If Opacity < 255 Then
Opacity = Opacity + 3
Fade Opacity
Else
Timer1.Enabled = True
End If
End Sub

چند نكته ی مهم:

1-هر چه Interval فرم بالاتر باشد ظاهر شدن كامل فرم هم بیشتر طول می كشد.
2-شما می توانید با ایجاد بعضی تغییرات در كد های بالا این كار را برای زمان بسته شدن فرم هم انجام دهید.