pregunta tonta(de API de Windows)

27/07/2004 - 17:03 por fernando | Informe spam
Hola grupo; a ver si alguien puede responderme a esta preguntonta; tengo la
siguiente sintaxis que declaro al comienzo de mi clase form:
Private Declare Sub GetSystemTime Lib "kernel32" (ByVal lpSystemTime As
Tiempo)

Structure Tiempo

Dim intSeconds As Integer

Dim intMiliseconds As Integer

End Structure

Luego dentro del programa uso esto:

Dim misegundo As Tiempo

GetSystemTime(misegundo) '' Aca mismo me da el
siguiente error: "Referencia a objeto no establecida como instancia de un
objeto"

Label7.Text = Format(misegundo.intSeconds, "00") & ":" &
Format(misegundo.intMiliseconds, "00") ' Aca pretendo mostrar los valores de
tiempo con milisegundos y todo

Bueno desde ya muchas gracias



fernando
 

Leer las respuestas

#1 Eduardo A. Morcillo [MS MVP VB]
27/07/2004 - 18:19 | Informe spam
El problema es que esta mal la estructura. La estructura correcta es:

Structure SYSTEMTIME
Dim wYear As Short
Dim wMonth As Short
Dim wDayOfWeek As Short
Dim wDay As Short
Dim wHour As Short
Dim wMinute As Short
Dim wSecond As Short
Dim wMilliseconds As Short
End Structure

Sin embargo no necesitas de esta API para obtener la hora con milisegundos,
el tipo Date contiene la fecha hasta milisegundos:

Label7.Text = Date.Now.ToString("hh:mm:ss.ffff")

Eduardo A. Morcillo [MS MVP VB]
http://www.mvps.org/emorcillo

Preguntas similares