Ejemplos usando el Api de windows para Visual basic

200 - Api TimeGetTime

Medir el transcurso de tiempo de un proceso con el Api TimeGetTime

Esta función es similar a GetTickCount . Las dos funciones devuelven los milisegundos trancurridos desde que se inició el sistema, pero TimeGetTime es mas presisa que getTickCount

Para obtener los milisegundos, solo llamar a dicha función y retornará el tiempo desde que se inició windows

El siguiente ejemplo carga en un control ListBox elementos, y se utiliza el api para averiguar los segundos transcurridos del bucle

Controles

un CommandButton
un ListBox

Código fuente en el form

' Api timeGetTime Private Declare Function timeGetTime Lib "winmm.dll" () As Long Private Sub Command1_Click() Dim i As Long Dim Inicio As Long Me.MousePointer = vbHourglass ' Punto de inicio. almacena los milisegundos desde que arrancó windows Inicio = timeGetTime ' Bucle List1.Clear For i = 0 To 25000 List1.AddItem i DoEvents Next Me.MousePointer = vbNormal ' Divide el resultado por mil para obtener los segundos MsgBox (timeGetTime - Inicio) / 1000 & " segundos" End Sub Private Sub Form_Load() Command1.Caption = " Llenar listbox " End Sub

Relacionados

Buscar en Recursos vb