지연 응용 프로그램

Question

나는이 응용 프로그램의 많은 장소에서이 코드를 사용하고 있는데 타이머를 사용하고 있다는 것을 알았지 만 약 20 개를 추가해야한다는 것을 의미합니다.이 문제는이 문제가 실행중인 경우 그리고 내가 끊어진 응용 프로그램을 닫습니다 .. 대신 한 타이머 대신이 같은 기능을 사용하는 대안이 무엇입니까?

Public Sub Delay_App(ByVal DelayInMilliseconds As Integer) 
    Dim ts As TimeSpan 
    Dim targetTime As DateTime = DateTime.Now.AddMilliseconds(DelayInMilliseconds) 
    Do 
     ts = targetTime.Subtract(DateTime.Now) 
     Application.DoEvents() 
     System.Threading.Thread.Sleep(50) 
    Loop While (ts.TotalSeconds > 0) AndAlso Application.OpenForms.Count > 0 
End Sub 

Answer 1

이미 언급했듯이 많은 장소에서이 작업을 수행해야하는 경우 실제로는 좋은 디자인이 아닙니다. 그러나 당신이 달성하기를 원하는 것을 모른 채, 나는 더 나은 해결책이 정말로 제공 될 수 없다. 그 동안 문제 해결 방법을 알려 드리겠습니다 :

응용 프로그램이 종료되었음을 나타내는 전역 변수를 추가하십시오. True로

Public AppClosing as Boolean 

설정이 응용 프로그램이 종료된다

이 지연 그리고

Public Event Form_Closing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing 
    AppClosing = True 
End Sub 

그냥이 플래그의 상태를 확인하십시오

Public Sub Delay_App(ByVal DelayInMilliseconds As Integer) 
    Dim ts As TimeSpan 
    Dim targetTime As DateTime = DateTime.Now.AddMilliseconds(DelayInMilliseconds) 
    Do 
     ts = targetTime.Subtract(DateTime.Now) 
     Application.DoEvents() 
     For i as Integer = 1 to 50 
      System.Threading.Thread.Sleep(1) 
      If AppClosing Then Exit Sub 'Application is closing so don't wait for the time 
     Next 
    Loop While (ts.TotalSeconds > 0) AndAlso Application.OpenForms.Count > 0 
End Sub