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

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

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

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

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

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

Спасибо, Саня.
...
Рейтинг: 0 / 0
23.02.2004, 21:43
    #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
23.02.2004, 21:56
    #32418687
Magnus23
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как заставить программу выходить при нажатии на "стоп"
Просто натыкай DoEvents в разных местах в цикле и на кнопке.


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


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