Tastendruck beim Programmstart auswerten Sie möchten / müssen beim Starten Ihrer Anwendung prüfen, ob diese in Verbindung mit einem bestimmten Tastendruck gestartet wurde? Kein Problem :-)
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  4.103
www.tools4vb.de	System:  Win9x, WinNT, Win2000, WinXP, Vista	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 17 Bewertung insgesamt: gut Durchschnittliche Bewertung: 4.4 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Sie möchten / müssen beim Starten Ihrer Anwendung prüfen, ob diese in Verbindung mit einem bestimmten Tastendruck gestartet wurde? Zum Beispiel möchten Sie den Anmeldedialog beim Starten Ihrer Anwendung umgehen, wenn die STRG-Taste gedrückt wurde? Oder die Anwendung soll sofort eine bestimmte Aktion ausführen?

Kein Problem

Fügen Sie hierzu folgenden Code in die Startprozedur Ihrer Anwendung ein (am besten in die Sub Main).

Option Explicit
 
' benötigte API-Deklarationen
Private Declare Function GetAsyncKeyState Lib "user32.dll" ( _
  ByVal nVirtKey As Long) As Integer
 
Private Const KeyPressed As Integer = -32767
Private Const VK_CONTROL = &H11

Sub Main()
  ' Falls die STRG-Taste beim Start der Anwendung 
  ' gedrückt wurde, Benutzer-Anmeldung umgehen
  If NOT (GetAsyncKeyState(VK_CONTROL) = KeyPressed) Then
    Load frmLogIn
    frmLogIn.Show vbModal
    ...
  End If
End Sub