如何在textbox失去焦点前，获得一个将要点击的button传过来的参数？

Question

请老师帮忙：
当焦点在textbox中，我点击button1时，如何控制不执行textbox的lostfocus()事件，而不点击button1，焦点离开textbox时执行textbox的lostfocus()事件？

Answer 1

我觉得点击button时就已经使得textbox失去焦点了，除非你设置了button的default属性，在按会车的时候响应button的click事件，这个时候焦点没有转移。
如果你没有在textbox的lostfocus()事件中写代码可以在button的click（）最后加Text1.SetFocus

Answer 2

不产生 LostFocus 事件似乎不太可能，但可以在 LostFocus 中判断一下是那个窗体得到了焦点。Private Declare Function GetFocus Lib "user32" () As LongPrivate Sub Text1_LostFocus()
    If Button1.hWnd = GetFocus Then
        'Button1 得到了焦点。
        Exit Sub
    Else
        '您的代码。
    End If
End Sub

Answer 3

一定要用lostfocus（）事件吗？
说一下你这样做的要实现的功能吧！