08. Этот пример показывает как с использованием API интерфейса и функция времени в миллисекундах с момента запуска Windows оперелить время открытия формы
' Функция времени в миллисекундах с момента запуска Windows
Private Declare Function apiTimeGetTime Lib "winmm.dll" Alias "timeGetTime" () As Long
Dim T0 As Long, T1 As Long
Private Sub Form_Open(Cancel As Integer)
' Устанавливаем начальное значение
T0 = apiTimeGetTime()
' Определяем список
Me.myList.RowSource = Me.myList.RowSource ";Form_Open: " ";" T0 ";" 0
End Sub
Private Sub Form_Activate()
T1 = apiTimeGetTime()
Me.myList.RowSource = Me.myList.RowSource ";Form_Activate: " ";" T1 ";" T1 - T0
End Sub
Private Sub Form_Current()
T1 = apiTimeGetTime()
Me.myList.RowSource = Me.myList.RowSource ";Form_Current: " ";" T1 ";" T1 - T0
End Sub
Private Sub Form_Load()
T1 = apiTimeGetTime()
Me.myList.RowSource = Me.myList.RowSource ";Form_Load: " ";" T1 ";" T1 - T0
End Sub
Private Sub Form_Resize()
T1 = apiTimeGetTime()
Me.myList.RowSource = Me.myList.RowSource ";Form_Resize: " ";" T1 ";" T1 - T0
End Sub