vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
SEPA-Dateien erstellen inkl. IBAN-, BLZ-/Kontonummernprüfung  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Newsletter  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2019
 
zurück
Rubrik: Fenster & Forms01.02.03
Form bei Inaktivität zeitgesteuert ausblenden

VB-Version:  VB5, VB6
 Views:  8.938 

Ihre Form soll sich automatisch ausblenden, wenn eine gewisse Zeit langnichts passiert?

Für unser Beispiel benötigen wir lediglich eine Form, auf der Sie einenTimer platzieren. Im Timer-Ereignis wird dann die aktuelle Mauspositionabgefragt, und wenn sich diese innerhalb einer bestimmten Zeit nicht verändertwird die Form geschlossen. Für das Beispiel habe ich mal eine Minute genommen.

Option Explicit
 
' benötigte API's
Private Declare Function GetCursorPos Lib "user32" ( _
  lpPoint As POINTAPI) As Long
 
Private Type POINTAPI
  x As Long
  y As Long
End Type
 
' aktuelle Mauskoordinaten
Private nX As Long
Private nY As Long
 
' Bisher vergangene Sekunden bei Inaktivität
Private nSek As Long
 
Private Sub Form_Load()
  ' Timer initialisieren
  Timer1.Interval = 1000     ' Intervall = 1000 entspricht 1 Minute
  nSek = 0
End Sub
 
Private Sub Timer1_Timer()
  ' Mausposition abfragen
  Dim P As POINTAPI
 
  GetCursorPos P
  If P.x << nX Or P.y << nY Then
    ' Maus wurde bewegt!
    ' Zählung von vorne beginnen
    nSek = 0
  Else
    nSek = nSek + 1
    If nSek < 59 Then
      ' Die Minute ist vorbei
      Timer1.Enabled = False
 
      ' aktuelle Form schließen
      Unload Me
 
      MsgBox "Die Minute ist vorbei."
      Exit Sub
    End If
  End If
 
  ' Letzte Mausposition merken
  nX = P.x: nY = P.y
End Sub

Diese Seite wurde bereits 8.938 mal aufgerufen.

nach obenzurück
 
   

Druckansicht Druckansicht Copyright ©2000-2019 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel