ocx يا dll براي لود فرم با افكت خاص

[nasim.gh68]

سلام
كسي ميدونه ocx يا dll براي لود فرم با افكت خاصي وجود داره يا نه؟مي خوام وقتي فرم لود ميشه ا افكت خاص باشه مثلا اول كمرنگ بعد پررنگ و... لطفا اگه ميدونيد معرفي كنيد...

[fooladvb]

سلام
كسي ميدونه ocx يا dll براي لود فرم با افكت خاصي وجود داره يا نه؟مي خوام وقتي فرم لود ميشه ا افكت خاص باشه مثلا اول كمرنگ بعد پررنگ و... لطفا اگه ميدونيد معرفي كنيد...
نیازی به Activex ها یا فایل های dll نیست
شما باید یک کنترل تایمر به فرم اضافه کنید و interval اون 50 بزارید البته دلبخواهی است
بعداین کدهارو تو فرم خود کپی کنید

کد ها :


Const LWA_COLORKEY = &H1
Const LWA_ALPHA = &H2
Const GWL_EXSTYLE = (-20)
Const WS_EX_LAYERED = &H80000

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 I As Integer

Private Sub Form_Load()
I = 50
Dim Ret As Long
SetWindowLong Me.hWnd, GWL_EXSTYLE, WS_EX_LAYERED
SetLayeredWindowAttributes Me.hWnd, 0, 200, LWA_ALPHA

End Sub

Private Sub Timer1_Timer()
I = I + 2
SetLayeredWindowAttributes Me.hWnd, 0, I, LWA_ALPHA
If I = 250 Then
Timer1.Enabled = False
Timer1.Interval = 0

End If

End Sub



fooladvb@gmail.com

[butterfly8528]

سلام .

بفرما . این هم چیزی که خواستید .