powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как заставить программу выходить при нажатии на "стоп"
3 сообщений из 3, страница 1 из 1
Как заставить программу выходить при нажатии на "стоп"
    #32418677
Фотография La_Sania
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Помоги, всезнающий All.

У меня есть Acess который с помощью vb 6 разговаривает с MSSQL сервером. Я запускаю какой-нибудь цикл, перебрающий данные и сравнивающий их с чем то (не важно чем именно). Данных много - занимает кучу времени.

Вопрос: я хочу временно остановить этот цикл (ну типа паузы или просто - закрыть форму).
Как это сделать?

Я пробовал рисовать кнопку и вешать на нее булевый флаг - типа "если кнопка нажата, кыш из цикла", но при нажатии на нее Access виснет намертво и даже перестает перерисовывать экран.

Я почему-то думал что у него должна быть какая-то много задачность.... про нажатие кнопок когда цикл крутится....

Как это сделать?

Спасибо, Саня.
...
Рейтинг: 0 / 0
Как заставить программу выходить при нажатии на "стоп"
    #32418684
Фотография La_Sania
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Вот, нашел:

Public Sub delay(howLong As Date)
Temptime = DateAdd("s", howLong, Now)
While Temptime > Now
DoEvents
Wend
End Sub

а потом в цикле:

Delay 1

И аксесс получает 1 секунду что-бы подумать и обработать события.

Спасибо
...
Рейтинг: 0 / 0
Как заставить программу выходить при нажатии на "стоп"
    #32418687
Фотография Magnus23
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Просто натыкай DoEvents в разных местах в цикле и на кнопке.


Magnus
...
Рейтинг: 0 / 0
3 сообщений из 3, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как заставить программу выходить при нажатии на "стоп"
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]