مینیمایز نشدن برنامه در حین اجرا

[saeidmobashery]

سلام و عرض ادب بر دوستان و اساتید گرامی

بنده سابروتینی دارم که حلقه‌ای بیست دقیقه‌ای را هندل می‌کند در طول اجرای این حلقه نمی‌شود برنامه را مینیمایز کرد
راهکاری سراغ دارید ؟

سپاس از بودن شما در این سایت مفید

[پرستو پارسایی]

Public Class Form1

    Private Sub btnStartLoop_Click(sender As Object, e As EventArgs) Handles btnStartLoop.Click

        ' تغییر وضعیت فرم به Minimized

        Me.WindowState = FormWindowState.Minimized





        ' شروع حلقه 20 دقیقه‌ای

        Dim endTime As DateTime = DateTime.Now.AddMinutes(20)

        While DateTime.Now < endTime

            ' انجام عملیات‌های لازم در هر دوره حلقه





            ' تعویض فرم بین Minimized و Normal

            If Me.WindowState = FormWindowState.Minimized Then

                Me.WindowState = FormWindowState.Normal

            Else

                Me.WindowState = FormWindowState.Minimized

            End If





            ' تعویض فعالیت بین فرم و دیگر برنامه‌ها

            Application.DoEvents()





            ' توقف حلقه برای یک مدت زمانی (مثلاً 1 ثانیه)

            System.Threading.Thread.Sleep(1000)

        End While





        ' بازگشت به حالت نرمال

        Me.WindowState = FormWindowState.Normal

    End Sub

End Class

با کلیک بر روی دکمه btnStartLoop، حلقه 20 دقیقه‌ای شروع می‌شه و در طول آن برنامه مینیمایز و نرمال می‌شه. تابع Sleep نیز برای توقف حلقه به مدت زمان مشخص (در این مثال 1 ثانیه) استفاده شده.

[saeidmobashery]

Public Class Form1

    Private Sub btnStartLoop_Click(sender As Object, e As EventArgs) Handles btnStartLoop.Click

        ' تغییر وضعیت فرم به Minimized

        Me.WindowState = FormWindowState.Minimized





        ' شروع حلقه 20 دقیقه‌ای

        Dim endTime As DateTime = DateTime.Now.AddMinutes(20)

        While DateTime.Now < endTime

            ' انجام عملیات‌های لازم در هر دوره حلقه





            ' تعویض فرم بین Minimized و Normal

            If Me.WindowState = FormWindowState.Minimized Then

                Me.WindowState = FormWindowState.Normal

            Else

                Me.WindowState = FormWindowState.Minimized

            End If





            ' تعویض فعالیت بین فرم و دیگر برنامه‌ها

            Application.DoEvents()





            ' توقف حلقه برای یک مدت زمانی (مثلاً 1 ثانیه)

            System.Threading.Thread.Sleep(1000)

        End While





        ' بازگشت به حالت نرمال

        Me.WindowState = FormWindowState.Normal

    End Sub

End Class

با کلیک بر روی دکمه btnStartLoop، حلقه 20 دقیقه‌ای شروع می‌شه و در طول آن برنامه مینیمایز و نرمال می‌شه. تابع Sleep نیز برای توقف حلقه به مدت زمان مشخص (در این مثال 1 ثانیه) استفاده شده.

استاد عزیز سپاس از محبت و حضور شما در این سایت