How to fade a form in?

[hannibaal]

please help me find out.. i have tried to reverse enginere the fade out code but it just isnt working

thanks

[Killer42]

please help me find out.. i have tried to reverse enginere the fade out code but it just isnt working

I'd suggest you take some time to play with it and understand how it works. I've just had a quick play and was able to get it to fade in. You just have to make sure you reverse the starting and ending conditions, and the "- 25".

[Ali Rizwan]

please help me find out.. i have tried to reverse enginere the fade out code but it just isnt working

thanks

I have made fade in and out effects to my form.
use this code.

add a timer name tmr

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 Const GWL_STYLE = (-16)
Private Const GWL_EXSTYLE = (-20)
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 LWA_COLORKEY = &H1
Private Const LWA_ALPHA = &H2
Private Const WS_EX_LAYERED = &H80000
 
 
Private m_lAlpha As Long
 
Dim lStyle As Long
Dim lAlpha
 
 
 
Private Sub Form_Load()
 
m_lAlpha = 255
 
   If (m_lAlpha = 255) Then
 
      lStyle = GetWindowLong(Me.hwnd, GWL_EXSTYLE)
      lStyle = lStyle Or WS_EX_LAYERED
      SetWindowLong Me.hwnd, GWL_EXSTYLE, lStyle
   End If
 
   m_lAlpha = m_lAlpha - 255
   lAlpha = m_lAlpha
   If (lAlpha < 0) Then
      lAlpha = 0
   End If
 
end sub
 
Private Sub tmr_Timer()
 
If (m_lAlpha = 255) Then
 
      lStyle = GetWindowLong(Me.hwnd, GWL_EXSTYLE)
      lStyle = lStyle Or WS_EX_LAYERED
      SetWindowLong Me.hwnd, GWL_EXSTYLE, lStyle
   End If
 
   m_lAlpha = m_lAlpha + 25
   lAlpha = m_lAlpha
   If (lAlpha > 150) Then
      lAlpha = 150
   End If
   SetLayeredWindowAttributes Me.hwnd, 150, lAlpha, LWA_ALPHA
   If (m_lAlpha > 150) Then
      m_lAlpha = 150
      tmr.Enabled = False
   End If
End If
 
End Sub
 
 

Set timer interval to 40 and play the form
When you play the form there is a transperancy in form if you dont want this in timer code replace 150 to 255

[Killer42]

hannibaal, if you have a look at Ali's other thread in the Articles area, I've added an example which shows both fade in and out effects when you click buttons. It also includes some comments, and I tried to simplify the code down to the bare minimum.