Свойства

События

Таймер имеет единственное событие - Timer, которое вызывается по истечении установленного временного интервала.

Для установки интервала времени служит свойство Interval, значение которого устанавливается в миллисекундах. Например, задание значения 250 вызывает событие Timer через каждые 250 миллисекунд независимо от того, какое приложение активно. Для отключения таймера следует присвоить свойству Interval значение 0 или свойству Enabled значение False.

Максимально допустимый интервал составляет 64757 миллисекунд. Но ОС может обрабатывать только 18,2 прерывания таймера в секунду, поэтому точность задания интервала составляет максимум одну восемнадцатую секунду. В Windows можно использовать не более 32 таймеров.

Пример использования таймера для перемещения объекта Shape (красного круга) в графическом окне 3000х4000.

Код программы

Свойства объектов Shape1 и Timer1

Dim x As Integer Dim y As Integer Dim r As Integer Dim h As Integer Dim h1 As Integer Private Sub Command1_Click()Unload Me End Sub Private Sub Form_Load()x = Shape1.Left y = Shape1.Top r = 200 h = r h1 = r End Sub Private Sub Timer1_Timer()If (x + 200) > Picture1.Width Then h = -r end if If (x - 200) < 0 Then h = r If (y + 200) > Picture1.Height Then h1 = -r end if If y - 200 < 0 Then h1 = r 'Установка координат левого верхнего 'угла объекта-окружности x = x + h y = y + h1 Shape1.Left = x Shape1.Top = y End Sub

17.3. Объект управления ProgressBar

Отображение процесса выполнения операций. В Windows этот элемент отображает течение процесса копирования, перемещения, загрузки и т.п. Если такого объекта нет на панели ToolBox, то его можно подключить с помощью компоненты Microsoft Windows Common Control 6.0.