Sección de ejemplos vb.net

34 - StopWatch

Simple ejemplo para medir un intervalo de tiempo para un proceso, usando el objeto StopWatch de .net

Controles :

Colocar un control ListBox
un Button

Código fuente en el formulario principal

Option Explicit On Option Strict On Public Class Form1 Private Sub Button1_Click( _ ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click 'Inicializa el nuevo objeto stopWatch Dim stopWatch As Stopwatch = New Stopwatch Dim Milisegundos As Long ' Iniciar con Start para comenzar a medir el intervalo stopWatch.Start() ' Cursor de Espera System.Windows.Forms.Cursor.Current = Cursors.WaitCursor ' Comenzar un bucle para el proceso For i As Integer = 0 To 50000 ListBox1.Items.Add(i) Next ' restaura el cursor por defecto System.Windows.Forms.Cursor.Current = Cursors.Default ' Detener la medición del tiempo stopWatch.Stop() ' mostrar el tiempo transcurrido Milisegundos = stopWatch.ElapsedMilliseconds MsgBox("Total de tiempo transcurrido en milisegundos: " & Milisegundos.ToString) ' en segundos MsgBox(stopWatch.Elapsed.Seconds.ToString) End Sub Private Sub Form1_Load( _ ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load Button1.Text = " Llenar lista " End Sub End Class

Recursos Visual basi 6.0 - Enlaces

Buscar en Recursos vb