pregunta tonta(de API de Windows)

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

prueba lo siguiente:
'en las declaraciones
'Public Declare Sub GetSystemTime Lib "kernel32"
'(ByVal lpSystemTime As SYSTEMTIME)

Public Declare Sub GetSystemTime _
Lib "kernel32" Alias "GetSystemTime" _
(ByRef lpSystemTime As SYSTEMTIME)

Public Structure SYSTEMTIME
Public Year As Short
Public Month As Short
Public DayOfWeek As Short
Public Day As Short
Public Hour As Short
Public Minute As Short
Public Second As Short
Public Milliseconds As Short
End Structure

Structure Tiempo
Dim intSeconds As Short
Dim intMiliseconds As Short
End Structure

' luego
Dim misegundo As SYSTEMTIME

GetSystemTime(misegundo)
MsgBox(misegundo.Milliseconds.ToString)

Saludos
-
Freddy Cáceres
Santiago - Chile
Mostrar la cita

Hola grupo; a ver si alguien puede responderme a esta

preguntonta; tengo la
Mostrar la cita

siguiente sintaxis que declaro al comienzo de mi clase form:
Private Declare Sub GetSystemTime Lib "kernel32" (ByVal

lpSystemTime As
Mostrar la cita

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
Mostrar la cita

siguiente error: "Referencia a objeto no establecida como

instancia de un
Mostrar la cita

objeto"

Label7.Text = Format(misegundo.intSeconds, "00") & ":" &
Format(misegundo.intMiliseconds, "00") ' Aca pretendo

mostrar los valores de
Mostrar la cita

tiempo con milisegundos y todo

Bueno desde ya muchas gracias



fernando


.

gracias eduardo, probare lo que sugieres. cualquier cosa te aviso.Gracias

fernando

"Eduardo A. Morcillo [MS MVP VB]" <emorcilloATmvps.org> escribió en el
mensaje news:#i4fBW$
Mostrar la cita

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,
Mostrar la cita

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

ok, me gusta, lo pruebo y contesto.Gracias
fernando
"Freddy Cáceres" escribió en el mensaje
news:519401c473f6$618212c0$

prueba lo siguiente:
'en las declaraciones
'Public Declare Sub GetSystemTime Lib "kernel32"
'(ByVal lpSystemTime As SYSTEMTIME)

Public Declare Sub GetSystemTime _
Lib "kernel32" Alias "GetSystemTime" _
(ByRef lpSystemTime As SYSTEMTIME)

Public Structure SYSTEMTIME
Public Year As Short
Public Month As Short
Public DayOfWeek As Short
Public Day As Short
Public Hour As Short
Public Minute As Short
Public Second As Short
Public Milliseconds As Short
End Structure

Structure Tiempo
Dim intSeconds As Short
Dim intMiliseconds As Short
End Structure

' luego
Dim misegundo As SYSTEMTIME

GetSystemTime(misegundo)
MsgBox(misegundo.Milliseconds.ToString)

Saludos
-
Freddy Cáceres
Santiago - Chile
Mostrar la cita

Hola grupo; a ver si alguien puede responderme a esta

preguntonta; tengo la
Mostrar la cita

siguiente sintaxis que declaro al comienzo de mi clase form:
Private Declare Sub GetSystemTime Lib "kernel32" (ByVal

lpSystemTime As
Mostrar la cita

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
Mostrar la cita

siguiente error: "Referencia a objeto no establecida como

instancia de un
Mostrar la cita

objeto"

Label7.Text = Format(misegundo.intSeconds, "00") & ":" &
Format(misegundo.intMiliseconds, "00") ' Aca pretendo

mostrar los valores de
Mostrar la cita

tiempo con milisegundos y todo

Bueno desde ya muchas gracias



fernando


.