سوال (تغییر height فرم در تایمر)

[mahdi_armed]

سلام
من تو یه تایمر یه کد نوشتم که اندازه ی صفحه رو تغییر بده
ولی هرکاری میکنم جواب نمیگیرم
کدی که نوشتم اینه :
private void timer1_Tick(object sender, EventArgs e)
{
Form1 MainForm = new Form1();
MainForm.Height += 10;
if (MainForm.Height > 500)
timer1.Enabled = false;
}

[plus]

شما تو این کد، هر بار یه فرم جدید ایجاد میکنید؟!
فکر میکنم شما میخوایین ارتفاع فرم جاری رو عوض کنید.نه؟

private void timer1_Tick(object sender, EventArgs e)
{
this.Height += 10;
if (this.Height > 500)
timer1.Enabled = false;
}

[mahdi_armed]

شما تو این کد، هر بار یه فرم جدید ایجاد میکنید؟!
فکر میکنم شما میخوایین ارتفاع فرم جاری رو عوض کنید.نه؟

private void timer1_Tick(object sender, EventArgs e)
{
this.Height += 10;
if (this.Height > 500)
timer1.Enabled = false;
}



عجب سوتیه عجیبی دادم :لبخند:
مرسی . مشکلمو حل کردی

[mahdi_armed]

حالا چطوری میتونم یه فرم رو موقع لود شدن بهش این افکت رو بدم
یعنی از نقطه ی 0و0 شروع به باز شدن کنه تا 500و500

[plus]

خوب مگه با همین روش نمیشه؟

[mahdi_armed]

چرا شد
یه تیکه کد رو اشتباه نوشته بودم جواب نمیداد

[mahdi_armed]

باز یه سوال
اگه بخوام فرم به صورت خطی لود بشه چیکار باید بکنم ؟
یعنی خط به خط پر شه تا بره پایین
فکر میکنم باید از حلقه استفاده کنم

راستی میشه همین فرم رو به صورت دایره load کرد ؟

[plus]

خط به خط یعنی چی؟ الان 10 پیکسل 10 پیکسل ارتفاع رو زیاد میکنید. میتونین این 10 رو تا 1 هم کم کنید یا زیاد کنید...
باید بشه. اما چیز بدرد بخوری در موردش نمیدونم.

[mahdi_armed]

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

[SHD.NET]

نه . من متوجه نشدم . ولی توی برنامه هام تاحالا از این روش زیاد استفاده کردم . اگ خواستی بگو نمونه بزارم

[mahdi_armed]

آره عزیز
اگه نمونه داری بزار . لازم دارم

[SHD.NET]

بفرما داداش . اینم نمونه

[SHD.NET]

اینم سورسش:
ابتدا دوتا تایمر بزارین توی برناتون . بعدشم این کد ها رو کلا جایگزینه پروژتون کنید

Public Class Form1

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.BackColor = Color.DarkGoldenrod
Me.Height = 15
Me.Width = 1
Me.Left = Screen.PrimaryScreen.WorkingArea.Width / 2
Timer1.Interval = 1
Timer2.Interval = 1
Timer1.Enabled = True
End Sub

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
If Me.Height >= 500 Then
Timer1.Enabled = False
Timer2.Enabled = True
Else
Me.Height += 10
Me.Top = (Screen.PrimaryScreen.WorkingArea.Height / 2) - (Me.Height / 2)
End If
End Sub

Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
If Me.Width >= 1000 Then
Timer2.Enabled = False
Else
Me.Width += 10
Me.Left = (Screen.PrimaryScreen.WorkingArea.Width / 2) - (Me.Width / 2)
End If
End Sub
End Class



:چشمک:\\\موفق باشید///:چشمک:

[mahdi_armed]

بفرما داداش . اینم نمونه



اینم سورسش:
ابتدا دوتا تایمر بزارین توی برناتون . بعدشم این کد ها رو کلا جایگزینه پروژتون کنید

Public Class Form1

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.BackColor = Color.DarkGoldenrod
Me.Height = 15
Me.Width = 1
Me.Left = Screen.PrimaryScreen.WorkingArea.Width / 2
Timer1.Interval = 1
Timer2.Interval = 1
Timer1.Enabled = True
End Sub

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
If Me.Height >= 500 Then
Timer1.Enabled = False
Timer2.Enabled = True
Else
Me.Height += 10
Me.Top = (Screen.PrimaryScreen.WorkingArea.Height / 2) - (Me.Height / 2)
End If
End Sub

Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
If Me.Width >= 1000 Then
Timer2.Enabled = False
Else
Me.Width += 10
Me.Left = (Screen.PrimaryScreen.WorkingArea.Width / 2) - (Me.Width / 2)
End If
End Sub
End Class



:چشمک:\\\موفق باشید///:چشمک:

خیلی ممنون عزیز
واقعا به کارم اومد
خیلی لطف کردی
فقط یه چندتا سوال بپرسم اگه بی ادبی نباشه
دستور Screen.PrimaryScreen.WorkingArea.Width / 2 چیکار میکنه ؟ یه توضیح کاملی بهم میدی ؟
و چرا توو تایمر بعدی , کد بالا رو از ارتفاع کم کردی ؟ چی بدست میاد با این کار ؟