为什么textbox.focus会抛出lostfocus事件？

Question

I've seen a few similar questions on SO but nothing that seems to actually address the issue. Here's a simplified version of the function.

Private Sub Check_Quantity(sender As System.Object, e As System.Windows.RoutedEventArgs) _
    Handles textbox_quantity.LostFocus

        Dim worked As Boolean = Integer.TryParse(textbox_quantity.Text, quantity)

        If Not worked Then
            MsgBox("Enter a valid number for the quantity")
            textbox_quantity.Focus()
            textbox_quantity.SelectAll()
            quantity = 0
        End If
End Sub

It's important to note that this is WPF. What I want to do is very simple. When someone finishes with the textbox the program checks that what they entered is a number. If it does it sticks this in an integer. If not, it tells them to fix it and keeps the focus on the textbox. The issue is a few things, but what it comes down to is this function runs in an infinite loop. This same function works fine in WinForms, but not in WPF.

On some other questions people have said that the messagebox appearing causes focus to be lost, but in testing this isn't true. It still loops regardless of if the messagebox is called or not. The problem is the call to textbox_quantity.Focus(). Without that it works fine. Regardless of whether it's there or not though, focus is not set to the textbox, though textbox_quantity.Focus() still returns a value of true. Any thought of what's going on and maybe how I could fix it?

Answer 1

The problem is that focus() is executed exactly when you call it... so just before the focus is given to the other control... Hence the loop... A workaround i've found is to postpone the execution of such code using System.Threading.ThreadPool.QueueUserWorkItem. But since focus() must be called from the window thread, i also have to use Me.Dispatcher.Invoke.
So the result is a little bit complicated, but it works !!

            System.Threading.ThreadPool.QueueUserWorkItem(
                                  Sub()
                       Me.Dispatcher.Invoke(Sub()
                                                sender.Focus()
                                                sender.SelectAll()
                                            End Sub)
                                  End Sub)

Answer 2

我会尝试在SelectAll调用之后移动Focus，或者在那里添加一个e.Handled = true语句。