VB-Homepage Tipp 409

Wie bekam eine Textbox den Focus (TAB oder Mausklick)

Wer mit Dateneingaben hantieren muß, der ist immer besorgt, daß der Benutzer auch keinen Mist baut :-) und so kann es wichtig sein, zu ermitteln, ob eine Textbox über TAB (also ggf. schön der Reihe nach) oder mit Mausklick ausgewählt wurde.

Und hier die Lösung.
Allgemein/Deklarationen
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Const VK_TAB = 9

Nun benötigen wir zwei Textboxen auf der Form. (Text1 und Text2)
Unsere zu prüfende Textbox wird Text2 sein, Text1 ist nur für den Wechsel notwendig.Deshalb erhält auch nur sie die Funktion.

Text2/GotFocus
If GetKeyState(VK_TAB) < 0 Then
   Text2.Text = "via TAB"
Else
   Text2.Text = "via Mausklick"
End If

Mehr braucht es nicht für ein Demoprojekt. Wenn Sie dies jetzt starten und in die Textbox 2 mit der Maus klicken, dann wird Ihnen dies auch angezeigt, genau so, wenn Sie via TAB Taste auf die Textbox wechseln.

Tipp-Download

Quelle :

Zurück zur Übersichtsseite