по таймеру

[Skarobey]

где почитать как заюзать таймер?
надо чтоб через определенное время срабатывал код
находящийся в Private Sub Command1_Click() пока не остановить вручную!
фактически чтоб Command1 кликалась раз в минуту например.

[Amed]

Самое примитивное, что на ум пришло:

Код: Выделить всё

Private Sub Timer1_Timer()
Command1_Click()
End Sub


На форме таймер Timer1,
Timer1.Interval=60000

Ещё можно через API, см. в Visual Basic конференции недавно проскакивало...

[Faust]

Вот здесь я выкладывал код к похожему вопросу (это как раз с упомянутыми Amed'ом API)

[i'm pissed]

ты сам придумывай научишься юзать timer чуть подумай и таймеры "полетят"

[A.A.Z.]

Во избежание вопроса "А что насчет остановки вручную?" напишу:

Код: Выделить всё

Dim bStop As Boolean

Sub Command2_Click() 'Пусть Command2 - кнопка останоффки
bStop = True
End Sub

Sub Timer1_Timer()
If Not bStop Then Command1_Click
End Sub

[Skarobey]

Во избежание вопроса "А что насчет остановки вручную?" напишу:

Код: Выделить всё

Dim bStop As Boolean

Sub Command2_Click() 'Пусть Command2 - кнопка останоффки
bStop = True
End Sub

Sub Timer1_Timer()
If Not bStop Then Command1_Click
End Sub

А если
Sub Command2_Click()
Timer1.interval = 0
End Sub

[Андрей Васюта]

помойму тогда получится одноразовая прога, так как ты собъеш интервал таймера, наверное нада в загрузку формы вписать диапазон интервала - но я не уверен (пойду попробую )

[xolod]

получится одноразовая прога, так как ты собъеш интервал таймера, наверное нада в загрузку формы вписать диапазон интервала

Что значит "сбить интервал таймера" ?

[A.A.Z.]

Он имеет ввиду, что обратно интервал будет не восстановить, если его нигде не записать. ИМХО, мой способ лучше

[tyomitch]

А про свойство Enabled у таймера все забыли?

[xolod]

Сам не понимаю, ШО за флейм тут развелся, простейшая операция, а писанины...
"Сбить интервал"... "Диапазон интервалов"... "Обратно восстановить интервал".... Эх, Д. Кнута на вас нет

[A.A.Z.]

Святое дело - прийти, нафлудить и уйти с поднятым носом

[tyomitch]

Святое дело - прийти, нафлудить и уйти с поднятым носом

Ну так... Мне ж тоже 2000-ный пост поскорее хочется
Хотел к ДР успеть, чтоб было два праздника сразу, но похоже опоздаю на пару дней

[Андрей Васюта]

Святое дело - прийти, нафлудить и уйти с поднятым носом [/quote]Ну так... Мне ж тоже 2000-ный пост поскорее хочется
Хотел к ДР успеть, чтоб было два праздника сразу, но похоже опоздаю на пару дней [/quote]

С наступающим тебя ДР

[A.A.Z.]

2 Андрей Васюта: он у него уже кончился
2 tyomitch: поздравляю!!

[tyomitch]

2 tyomitch: поздравляю!!

Всё - задача выполнена, 2000 постов есть Теперь принимаю поздравления

[xolod]

ПАЗДРАВЛЯЮ!
Даешь 4000 постов до 1 дня лета

зы: пошел писать бота, чтобы за меня где-нить в тихом месте на форуме постил раз в 10 минут