Часы!
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Сообщений: 3
• Страница 1 из 1
- GSerg
- Шаман
- Сообщения: 14286
- Зарегистрирован: 14.12.2002 (Сб) 5:25
- Откуда: Магадан
GSerg » 16.05.2003 (Пт) 8:47
- Код: Выделить всё
Private Sub Form_Load()
Me.AutoRedraw = True
Me.FontName = "comic sans ms"
Me.FontBold = True
Me.FontItalic = True
Me.Print Hour(Now) & ":" & Minute(Now)
End Sub
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас
- gjghjc
- Постоялец
-
- Сообщения: 659
- Зарегистрирован: 13.10.2002 (Вс) 8:28
- Откуда: БАЛАКЛАВА!!
gjghjc » 16.05.2003 (Пт) 23:12
А чтобы время изменялось то вешаешь на форму таймер
Устанавливаешь в его свойствах интервал = 1000
Дважды кликаешь по нему мышкой и в этом событии прописываешь
Form1.Caption=Time
И у тебя на заголовке будет постоянно отображатся текущее время.
Устанавливаешь в его свойствах интервал = 1000
Дважды кликаешь по нему мышкой и в этом событии прописываешь
Form1.Caption=Time
И у тебя на заголовке будет постоянно отображатся текущее время.
Утро добрым не бывает!
Сообщений: 3
• Страница 1 из 1
Кто сейчас на конференции
Сейчас этот форум просматривают: AhrefsBot, Google-бот и гости: 43