P
proger2030
Код:
'Отоброжения текущего времени
Sub Showtime()
Label1.Caption = CStr(Time)
End Sub
'Иницилизация формы
Private Sub Form_Initialize() ' [color="#FF0000"][size="5"]Вот об этом подробнее можете обяснить содержания сам понял[/size][/color]
'Настройка и запуск таймера
Timer1.Interval = 1000 'Период сигнала таймера 1с
Timer1.Enabled = True ' Запуск таймера
Label1.Font.Size = 20 ' Усановка размера шрифта для поля вывода времени
End Sub
Private Sub Form_Paint()
Call Showtime
End Sub
зачем использовать
Код:
Private Sub Timer1_Timer()
Call Showtime ' отображение времени
End Sub