شناور کردن فرم

[rainymbb]

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

[mpmsoft]

Dim I2 As Long
Dim i3 As Long
For i = 1 To Forms.COUNT - 1
I2 = I2 + 400
Forms(i).Top = I2
Forms(i).ZOrder
Forms(i).Left = (Screen.Width / 2) - (Form1.Width / 2)
Next

[r0ot$harp]

Dim I2 As Long
Dim i3 As Long
For i = 1 To Forms.COUNT - 1
I2 = I2 + 400
Forms(i).Top = I2
Forms(i).ZOrder
Forms(i).Left = (Screen.Width / 2) - (Form1.Width / 2)
Next



حاجی کاش یه توضیح می دادی طرز کار این چه جوریه ؟



باتشکر احسان

[rainymbb]

Dim I2 As Long
Dim i3 As Long
For i = 1 To Forms.COUNT - 1
I2 = I2 + 400
Forms(i).Top = I2
Forms(i).ZOrder
Forms(i).Left = (Screen.Width / 2) - (Form1.Width / 2)
Next



شرمنده ام ای کش یه توضیح بیشتری می دادین که این کد برای کجاست ...

[mpmsoft]

دوست عزیز شما در حالت SDI Form می تونی از این کد استفاده کن در زمان چیدن پنجره هات استفاده کنی توسط Forms می تونی به فرمهایی که در برنامت در حال اجرا هست دسترسی پیدا کنی و یا حتی می تونی نوشته اونها رو هم عوش کنی.

در هر صورت شما این کد رو تبدیل به یک پروسیجر کنید و بعد اونو صدا کنید