- Код: Выделить всё
Dim i
Private Sub Timer1_Timer()
i = i + 1
If i = 4 Then End
End Sub
Таймер обратного отщёта
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Сообщений: 4
• Страница 1 из 1
- JohnK
- Постоялец
-
- Сообщения: 874
- Зарегистрирован: 03.08.2002 (Сб) 0:35
- Откуда: 48.02` 37.58`
JohnK » 22.01.2007 (Пн) 20:03
Добавь в процедуру:
- Код: Выделить всё
Label1.caption = "Осталось " & cstr(4-i)
SELECT * FROM girls WHERE tits NOT NULL AND age BETWEEN 18 AND 25 ORDER BY Beauty
- Wolfie
- Бывалый
-
- Сообщения: 213
- Зарегистрирован: 06.03.2006 (Пн) 18:52
- Откуда: Россия, Москва, СЗАО
Wolfie » 24.01.2007 (Ср) 20:54
Ага, только результат в милисекундах отображаться будет )Label1.caption = "Осталось " & cstr(4-i)
··•··•••··•··••·•·•·•···••·•••···•···•••·•··•·•··
C:\> per asper ad astra
'ASTRA' answer: Path 'ASPER' Not Found
684 Errare humanum est!
C:\> _
C:\> per asper ad astra
'ASTRA' answer: Path 'ASPER' Not Found
684 Errare humanum est!
C:\> _
Сообщений: 4
• Страница 1 из 1
Кто сейчас на конференции
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 97