Feedback

VB - Zeitpunkt der letzten Benutzereingabe ermitteln

Veröffentlicht von am 20.10.2006
(1 Bewertungen)
Diese Funktion gibt den Zeitpunkt der letzten Benutzereingabe in Millisekunden zurück.
Dabei wird die Zeit vom Systemstart genommen also von GetTickCount und nicht die Uhrzeit.
GFU-Schulungen  [Anzeige]

VB.NET 2017/2015/2013 Einführung

Das Seminar befähigt Sie zur eigenständigen Entwicklung von anwenderorientierten Programmen in VB.NET, worin auch der Einsatz von Datenbanken enthalten ist.

VB.NET Einführung

Die Schulung zeigt Ihnen, wie Sie einfache, benutzerorientierte Programme, die auf Datenbanken zugreifen, in VB.NET eigenständig entwickeln. 

Public Declare Auto Function GetLastInputInfo Lib "user32" ( _
    ByRef LIIObj As LII) _
As Integer

Public Structure LII 'LastInputInfo
    Public Size As Integer
    Public Time As Integer
End Structure


''' <summary>
''' Diese Funktion gibt den Zeitpunkt der letzten Benutzereingabe in Millisekunden zurück.
''' Dabei wird die Zeit vom Systemstart genommen also von GetTickCount.
''' </summary>
Public Function GetLastInputTime() As Integer
    Dim LIIObj As New LII

    '"Unmanaged" Größe des Objekts speichern
    LIIObj.Size = CUInt(System.Runtime.InteropServices.Marshal.SizeOf(LIIObj))

    'Zeit der letzten Eingabe abfragen (Maus oder Tastatur)
    GetLastInputInfo(LIIObj)

    Return LIIObj.Time
End Function
Abgelegt unter Idle.

Kommentare zum Snippet

 

Logge dich ein, um hier zu kommentieren!

Ähnliche Snippets