Hallo,
die Events die Ahmed nennt bieten sich an. Weil sie für ein Control welches mit der Maus angeclickt wird ausgeführt werden bevor das Validating und LostFocus Event des zuvor aktiven Controls ausgeführt werden. (Im Gegensatz zu MouseDown und MouseClick.)
Z.B. für eine TextBox mit Namen TextBox3:
(Ungelöst ist die Situation wenn der Focus auf TextBox2 steht. Dann die Maus auf TextBox3 positioniert wird. Wenn dann Tab gedrückt wird wird bei mir das Form1_KeyUp Event nicht ausgeführt?? mobjControl_MouseEntered wird nicht auf Nothing gesetzt. Somit wird
dann davon ausgegangen das der Focus mit der Maus gesetzt wurde.)
Dim mobjControl_MouseEntered As Control
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Me.KeyPreview = True
End Sub
Private Sub Form1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp
' Die Tab Taste löst KeyUp aus.
If e.KeyCode = Keys.Tab Then
mobjControl_MouseEntered = Nothing
End If
End Sub
Private Sub TextBox3_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox3.MouseEnter
mobjControl_MouseEntered = DirectCast(sender, Control)
End Sub
Private Sub TextBox3_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox3.MouseLeave
mobjControl_MouseEntered = Nothing
End Sub
Private Sub TextBox3_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox3.GotFocus
If mobjControl_MouseEntered Is sender Then
' Es war die Maus.
End If
mobjControl_MouseEntered = Nothing
End Sub
Control bekommt Focus duch Maus oder Tab?
