Форма доступа в режиме реального времени

Question

Я пытаюсь сделать живой показ в форме. Есть 3 формы для отображения: Display 1, Display 2 и Display 3. От 7:30:00 AM до 4:30:00 PM, каждый 30 Seconds меняет отображение. Я попытался сложить 3 дисплея вместе и сделать 1 из visible = yes, а другой 2 visible = no. Но я не знаю, как сделать непрерывный l oop, где every 30 Seconds, это меняет видимость дисплея. Для 7:30:00 AM до 4:30:00 PM я использую TimeSerial Function.

Answer 1

Установите для отображения Display1 значение True, а для остальных значение False. Поместите этот код в форму после двойного щелчка по событию «Таймер включения»:

Option Compare Database
Option Explicit
Private DisplayNo As Integer

Private Sub Form_Load()
    Me.TimerInterval = 1000 * 30 ' 30 seconds
End Sub

Private Sub Form_Timer()
    Display1.Visible = False
    Display2.Visible = False
    Display3.Visible = False

    If DisplayNo = 0 Or DisplayNo = 3 Then
        DisplayNo = 1
    Else
        DisplayNo = DisplayNo + 1
    End If

    Select Case DisplayNo
        Case 1
            Display1.Visible = True
        Case 2
            Display2.Visible = True
        Case 3
            Display3.Visible = True
        Case Else
    End Select
End Sub