Question

vb 窗体焦点转移触发什么事件

Answer 1

按理说控件失去焦点时将会发生LostFocus事件，窗体也同样如此，但是此事件是在多个子窗体之间有效，因此可以使用API的方法，不断的获取目前焦点窗体，如果不为自己的窗体就执行自己的操作。

相关API

GetForegroundWindow

具体实现：（加个timer1，Interval设置为100）

Private Declare Function GetForegroundWindow Lib "user32" () As Long
Dim ncheck As Boolean
Private Sub Form_Load()
ncheck = False
End Sub

Private Sub Timer1_Timer()
If GetForegroundWindow() = Me.hWnd Then ncheck = False
If GetForegroundWindow() <> Me.hWnd And ncheck = False Then
ncheck = True
'这里相当于窗体失去焦点的事件
MsgBox "Focus Lost!"
End If
End Sub

Answer 2

与焦点有关的事件大概5个，Activate ,Deactivate ，LostFocus，GotFocus,，Validate
Activate ,Deactivate 窗体获得或失去焦点是被触发
LostFocus，GotFocus 同一窗体中控件焦点转换时触发（活动窗口转移时也会触发）
Validate 主要是像文本框之类的控件失去焦点时触发，用于检查键入的文本是否合法。