Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: таймер Добавлено: 18.03.03 07:29  

Автор вопроса:  RatU
Народ, кто-нибудь объяснит, как может остановиться таймер, если программа не висит, а крутиться в цикле с doevents всякими, при чем другие таймеры работают нормально.

Ответить

  Ответы Всего ответов: 1  

Номер ответа: 1
Автор ответа:
 V!RU$™



ICQ: 132309822 

Вопросов: 24
Ответов: 54
  Web-сайт: cxodnya.narod.ru
 Профиль | | #1 		Добавлено: 18.03.03 15:23

ну таймер останавлимается вообщето так: Timer1.Interval=0

или у тя цикл и в цикле он какбы запускается?

Если так то :

Dim StopTimer As Boolean ' обявляем переменную которая отвечает за остановку таймера
Dim a As Long ' объявляем переменную цикла
Private Sub Command1_Click() ' при нажжатии на кнопку Command1 начинается выполнятся цикл
For a = 0 To 200000 ' твой цикл
If StopTimer = True Then Timer1.Interval = 0 'если значение переменной StopTimer будет равно True то таймер останавливается
Label1.Caption = a 'сюда вписывай что угодно
' твой код
DoEvents
Next
End Sub
Private Sub Command2_Click() '  пр  нажатии на Command2 останавливается таймер
StopTimer = True
End Sub
Private Sub Timer1_Timer()
Label2.Caption = Time ' сюда вписываеш то что у тя происходит в таймере
End Sub

вот и всё

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам