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