توضیحاتی اندک اما کامل در مورد توابع

[karbon2010]

سلام به همه دوستان عزیز و گرامی
می خواستم بنا به درخواست دوست عزیزم توضیح مختصری در مورد اکثر توابع را برای شما عزیزان و دوست عزیزم بدهم البته لازم است که بگویم که تمام این توضیحات از خود من نیست طی جمع آوری اطلاعاتی که در این زمینه داشتم است و این امکان وجود دارد که این توضیحات را یا جایی دیده اید یا شنیده اید حتی داخل این انجمن یا انجمن دیگه بهشون برخورده باشید و.....
در حقیقت این تایپیک برای تازه کار ها است

[karbon2010]

سلام
برای شروع از AnimateWindow شروع میکنیم


Const AW_HOR_POSITIVE = &H1
Const AW_HOR_NEGATIVE = &H2
Const AW_VER_POSITIVE = &H4
Const AW_VER_NEGATIVE = &H8
Const AW_CENTER = &H10
Const AW_HIDE = &H10000
Const AW_ACTIVATE = &H20000
Const AW_SLIDE = &H40000
Const AW_FADE = &H80000

Private Declare Function AnimateWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal dwTime As Long, ByVal dwFlags As Long) As Boolean

این تابع برای دادن افکت به فرم و یا یک پنجره است
به اینصورت که
hwnd : هندل پنجره مورد نظر
dwTime : مقدار زمانی که افکت انجام میشود
dwFlags : نوع افکت گذاری بروی پنجره را مشخص می کند.
در این باره ثابت های زیر به شما کمک خواهد کرد
AW_HOR_POSITIVE : پنجره از چپ به راست باز می شود
AW_HOR_POSITIVE : پنجره از راست به چپ باز می شود
AW_VER_POSITIVE : پنجره از بالا به پایین باز می شود
AW_VER_NEGATIVE : پنجره از پایین به بالا باز می شود
AW_SLIDE : افکت اسلاید
AW_CENTER : از وسط باز می شود
AW_ACTIVATE : پنجره را فعال می کند (این ثابت را با AW_HIDE به کار نبرید)
AW_HIDE : پنجره را مخفی می کند (این ثابت را با AW_ACTIVATE به کار نبرید)
AW_FADE : محو یا پیدایش تدریجی

این هم یه مثال



Option Explicit
Private Declare Function AnimateWindow Lib "user32" (ByVal hwnd As Long, ByVal dwTime As Long, ByVal dwFlags As Long) As Boolean
Private Sub Form_Load()
On Error GoTo starterr
Dim StartUpEffect
If frmOptions.optLR.Value Then
StartUpEffect = &H1
ElseIf frmOptions.optRL.Value Then
StartUpEffect = &H2
ElseIf frmOptions.optTB.Value Then
StartUpEffect = &H4
ElseIf frmOptions.optBT.Value Then
StartUpEffect = &H8
ElseIf frmOptions.optC.Value Then
StartUpEffect = &H10
Else
StartUpEffect = &H80000
End If
If Trim(frmOptions.Text1.Text) <> "" Then
AnimateWindow Me.hwnd, frmOptions.Text1.Text, StartUpEffect
DoEvents
Me.Refresh
Else
MsgBox = MsgBox("Please enter a valid number!", , "Error")
End If
Exit Sub
starterr:
MsgBox = MsgBox("Please select an effect!", , "Error")
End Sub


سلام
این هم یه مثال ساده تر


private declare function animatewindow lib "user32" (byval hwnd as long, byval dwtime as long, byval dwflags as long) as boolean
private sub form_load()
animatewindow hwnd, 200, 16
end sub


سلام
در ضمن برای تغییر نوع افکت مقدار 16 را کم کنید

[Payman_62]

سلام.
سعی کن توضیحات مربوط به هر api رو در یه پست بدی که مطالب مرتبط پراکنده نشن.