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

سلام
من تو یه تایمر یه کد نوشتم که اندازه ی صفحه رو تغییر بده
ولی هرکاری میکنم جواب نمیگیرم
کدی که نوشتم اینه :

        private void timer1_Tick(object sender, EventArgs e)

        {

            Form1 MainForm = new Form1();

            MainForm.Height += 10;

            if (MainForm.Height > 500)

                timer1.Enabled = false;

        }

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

private void timer1_Tick(object sender, EventArgs e)

{

    this.Height += 10;

    if (this.Height > 500)

        timer1.Enabled = false;

}

نقل قول:

---

نوشته شده توسط plus

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

private void timer1_Tick(object sender, EventArgs e)

{

    this.Height += 10;

    if (this.Height > 500)

        timer1.Enabled = false;

}

---

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

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

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

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

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

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

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

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

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

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

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

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

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

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

نقل قول:

---

نوشته شده توسط sh.dehnavi

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

---

نقل قول:

---

نوشته شده توسط sh.dehnavi

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

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 چیکار میکنه ؟ یه توضیح کاملی بهم میدی ؟
و چرا توو تایمر بعدی , کد بالا رو از ارتفاع کم کردی ؟ چی بدست میاد با این کار ؟