Здесь очень основной вариант вам нужно. Имейте форму с cmdStart 3 кнопок командование, cmdPause и cmdResume, textbox textbox1 и ярлыком label1.
Я комментировал все линии Кодего настолько многообещающий, котор вы можете увидеть идет дальше:
Ярлык там поэтому вы можете увидеть ваш счетчик (и меня используйте его для того чтобы сохранить значение ctr делано паузу).
Для этого нужна проверка что textbox фактическ держит законное значение прежде чем вы начинаете, я положил бы это под кнопку старта и только вызвал бы режим инкремента если значение хорошее одним.
На испытывать его, если вы как раз идете препятствовать ему побежать вы, то будет нужно использовать значение что-то как 20000 или вы не сможет сделать паузу быстро достаточно.
Вариант точный
Затемните runstatus как булевско 'ли петля может побежать или не. форма ровная настолько все процедуры может увидеть его
Приватное Sub cmdPause_Click ()
runstatus = ложно 'установило состояние поэтому петля остановит
Подводная лодка конца
Приватное Sub cmdResume_Click ()
рестарт CLng инкремента (Label1.Caption) 'подсчитывать using сохраненное значение счетчика
Подводная лодка конца
Приватное Sub cmdStart_Click ()
старт инкремента 1 'подсчитывать от 1
Подводная лодка конца
Приватный Sub инкремент (ctr как длиной)
runstatus = поистине 'делает конечно петлю может побежать
Сделайте пока runstatus = True и ctr <� Val=""> ctr = ctr + 1 'инкремент счетчик
Label1.Caption = ctr 'вывели наружу встречное значение, using титр ярлыка как магазин текущей стоимости
DoEvents 'так ярлык может уточнить свой титр, и позволить кнопку перерыва быть отжатым
Петля 're-enter петля если условия петли все еще поистине
Подводная лодка конца
Я огорченн я приняло настолько длиной для того чтобы получить назад к вам, но если вам нужно больше объяснение пожалуйста, то спросите.
