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

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

می خواستم فرم برنامه هر وقت سیستم روشن شد یا برنامه رو اجرا کردم
فرم از زیر تسک بار بالا بیاد و فرم از پایین به بالا باز بشه

من این کد رو نوشتم ولی از بالا به پایین باز میشه


ممنون

Private Sub Timer1_Timer()

Timer1.Enabled = True

Form1.Height = Form1.Height + 1
If Me.Height = 5280 Then
Timer1.Enabled = False
End If

End sub

منظورتون رو درست متوجه نشدم...!

ولی ببینید این به دردتون می خوره...!

کد:

---


Private Sub Form_Load()
Timer2.Enabled = False
Timer1.Enabled = True
Me.Top = Screen.Height
Me.Height = 0
End Sub
Private Sub Timer1_Timer()
If Me.Top > Screen.Height / 2 Then
Me.Top = Me.Top - 30
Else
Timer2.Enabled = True
Timer1.Enabled = False
End If
End Sub
Private Sub Timer2_Timer()
If Me.Height < 5280 Then Me.Height = Me.Height + 15 Else Timer2.Enabled = False
End Sub

---

امیدوارم مشکلتون حل شده باشه...!

موفق باشید...!

از این کد استفاده کن
بجای Form1 اسم فرمی که روش کار می کنی رو بنویس

کد:

---

Private Sub Form_Load()
Form1.Top = Screen.Height
Timer1.Interval = 1
End Sub

Private Sub Timer1_Timer()
If Form1.Top > Screen.Height / 2 Then
Form1.Top = Form1.Top - 50
End If
End Sub

---

---------- Post added at 04:12 PM ---------- Previous post was at 04:11 PM ----------

نقل قول:

---

نوشته شده توسط almata [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

از این کد استفاده کن
بجای Form1 اسم فرمی که روش کار می کنی رو بنویس

کد:

---

Private Sub Form_Load()
Form1.Top = Screen.Height
Timer1.Interval = 1
End Sub

Private Sub Timer1_Timer()
If Form1.Top > Screen.Height / 2 Then
Form1.Top = Form1.Top - 50
End If
End Sub

---

---

فوق العاده ممنونم دمت گرم خیلی مردی

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

در ضمن اگه بخوام بعد از یه مثلآ 20 ثانیه خودش بره پایین چجوریه برا وقفه خوبه از sleep استفاده کنم

ممنون

نقل قول:

---

نوشته شده توسط almata [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

از این کد استفاده کن
بجای Form1 اسم فرمی که روش کار می کنی رو بنویس

کد:

---

Private Sub Form_Load()
Form1.Top = Screen.Height
Timer1.Interval = 1
End Sub

Private Sub Timer1_Timer()
If Form1.Top > Screen.Height / 2 Then
Form1.Top = Form1.Top - 50
End If
End Sub

---

---

به جای Form1 می تونید از Me استفاده کنید که اشاره به فرم جاری داره و دیگه نیاز نیست هر بار اسم فرم رو تغییر بدید...! :20:

اونی من گذاشتم که پیشرفته تر بود که... چرا از اون استفاده نکردید...؟! :41:

نقل قول:

---

در ضمن اگه بخوام بعد از یه مثلآ 20 ثانیه خودش بره پایین چجوریه برا وقفه خوبه از sleep استفاده کنم

---

Sleep خوب نیست...! وقتی از Sleep استفاده می کنید... برنامه رو کلاً از کار می ندازید... یعنی دیگه حتی به پیغام های ویندوز هم جواب نمی ده...! (کلاً هنگ می کنه...!)

راه های دیگه ای هم هست...! ولی... اینجا بهتره که از همون Timer استفاده کنید...! :13:

موفق باشید...! :46:

نقل قول:

---

نوشته شده توسط post98 [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

فوق العاده ممنونم دمت گرم خیلی مردی

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

ممنون

---

در این خط از کد

کد:

---

Form1.Top = Form1.Top - 50

---

بجای عدد 50 یک عدد دیگر قرار دهید. هر چه این عدد بزرگتر باشد سرعت لود شده فرم کمتر می شود. مثلا عدد 250 را قراد دهید. و بالعکس اگر عدد کوچکتری انتخاب کنید سریع تر لود می شود