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:	Views:  13.975
www.tools4vb.de	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

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

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle 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.