View Full Version : سوال: مینیمایز نشدن برنامه در حین اجرا
saeidmobashery
پنج شنبه 26 بهمن 1402, 20:59 عصر
سلام و عرض ادب بر دوستان و اساتید گرامی
بنده سابروتینی دارم که حلقهای بیست دقیقهای را هندل میکند در طول اجرای این حلقه نمیشود برنامه را مینیمایز کرد
راهکاری سراغ دارید ؟
سپاس از بودن شما در این سایت مفید
پرستو پارسایی
جمعه 27 بهمن 1402, 17: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, 19: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 ثانیه) استفاده شده.
استاد عزیز سپاس از محبت و حضور شما در این سایت
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.