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

[vb8334]

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

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

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


ممنون




Private Sub Timer1_Timer()

Timer1.Enabled = True

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


End Sub

[programer1389]

api مورد نیازتون اینه
animate window
تو سایت سرچ کن حتما پیدا میکنی ارگومان اولش رو هندل فرمتون بذارین ارگومان دوم رو زمان لازم برای ایم کار برحسب میلی ثانیه و ارگومان سوم رو هم نوع افکت بزار یعنی aw-ver-negative
نصف بیشترش رو خودم گفتم!!!!

[vb8334]

ممنون دوس عزیز

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

روش دیگه ای نیست من خیلی بهش نیاز دارم

اینم یه قسمت برنامه من

ممنون

[vb8334]

خدا رو شکر مشکل بنده حل شد

البته نه با animate window

ممنون

[mds_boy]

خدا رو شکر مشکل بنده حل شد

البته نه با animate window

ممنون


دوسته عزیز تاپیک رو بی جواب ترک نکنید، اگر به جواب رسیده اید، بیان کنید تا کاربران دیگر که به قصد این کار اینجا را پیدا کردند به نتیجه برسند، و تاپیکی مشابه ساخته نشود.

موفق باشید.

[vb8334]

حتمآ دوست عزیز



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

[ALIMAHDE54]

سلام برهمه ی دوستان این سورسو هم ببین اگه مشکلت حل شده که هیچ اگه نه این سورس خوبیه