فرم از پایین به بالا

[javid_debugger]

چجوری میشه فرم برنامه رو از پایین (نوار استارت) به بالا بیاریم به صورت ملایم:متفکر:

[ali_habibi1384]

یعنی چی؟ مثال بزنید.!

[javid_debugger]

در حالت معمولی برنامه در جای خود که تعیین کردیم اجرا می شه ولی من می خواستم وقتی برنامه رو اجرا کردیم فرم برنامه از پایین صفحه نمایش به بالا(تا وسط صفحه نمایش)بیاید.

[مهران رسا]

سوالشون خیلی واضحه ...

با استفاده از Timer می تونی این کار رو انجام بدی .
یه Timer با Interval مثلاً 10 بذار روی فرمت . و داخلش کد زیر رو بنویس :



Me.Top = Me.Top -100


چرا -100 ؟!!
به دلیل اینکه فرم هرچی به پایین صفحه نزدیک تر بشه Top اون بیشتر میشه . (حرکت به سمت پایین).

پس زمانی که بخوایم فرم رو به سمت بالا حرکت بدیم باید از Top اون کم کنیم .

بعد با استفاده از یک شرط میتونی Enabled مربوط به Timer رو False کنی تا دیگه دستور عمل های موجود در Timer اجرا نشه و یا به عبارت ساده تر فرم ثابت بشه ...



If Me.top > 3975 Then Timer1.Enabled=False

[majjjj]

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
Private Sub Form_Load()
Call AnimateWindow(Me.hwnd, 10000, AW_VER_NEGATIVE)
End Sub


این رو هم ببینید بد نیست