(Я использую VB6, но думаю, что это встречается на большинстве других языков.)
У меня есть кнопка графического интерфейса, которая вызывает процедуру, выполнение которой занимает минуту или две. Я хочу, чтобы нетерпеливые пользователи могли щелкнуть по кнопке второй раз, чтобы она корректно вышла из рутины в любой момент.
Я использовал статическую переменную, чтобы эта работа хорошо работала (см. Код ниже), но я очищаю проект и хочу поместить цикл For / Next в его собственную функцию, поскольку он требуется в нескольких разных местах проекта. .
Но это нарушит мой статический флаг, встроенный в for / next, поэтому мне нужно внести некоторые изменения. Прежде чем заняться чем-то нелепым с общедоступными (глобальными) переменными, я подумал, что могу спросить, что сделали другие (более умные, возможно, на самом деле получившие образование в области CS), столкнувшись с этой проблемой.
Итак, в основном мой вопрос в том, как мне воспроизвести это:
Private Sub DoSomething_Click()
Static ExitThisSub As Boolean ' Needed for graceful exit
If DoSomething.Caption = "Click To Stop Doing Something" Then
ExitThisSub = False ' this is the first time we've entered this sub
Else ' We've re-entered this routine (user clicked on button to stop it)
ExitThisSub = True ' Set this so we'll see it when we exit this re-entry
Exit Sub '
End If
DoSomething.Caption = "Click To Stop Doing Something"
For i = 0 To ReallyBigNumber
Call DoingSomethingSomewhatTimeConsuming
If ExitThisSub = True Then GoTo ExitThisSubNow
DoEvents
Next
' The next line was missing from my original example,
' prompting appropriate comments
DoSomething.Caption = "Click To Do Something"
Exit Sub
ExitThisSubNow:
ExitThisSub = False ' clear this so we can reenter later
DoSomething.Caption = "Click To Do Something"
End Sub
Когда я перемещаю цикл for / next к его собственной функции?
Я думаю, что заменю ExitThisSub на общедоступную переменную QuitDoingSoManyLongCalculations, которая таким же образом выйдет из новой подпрограммы for / next, а затем из DoSomething_Click.
Но когда я использую глобальные переменные, я всегда чувствую себя любителем (каковым я являюсь) - есть ли более элегантное решение?
