سوال: مینیمایز نشدن برنامه در حین اجرا [بایگانی]

saeidmobashery

پنج شنبه 26 بهمن 1402, 19:59 عصر

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

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

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

پرستو پارسایی

جمعه 27 بهمن 1402, 16:13 عصر

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

جمعه 27 بهمن 1402, 18:42 عصر

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 ثانیه) استفاده شده.

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