Question

vb中窗体失去焦点时触发某一事件怎么写

如 一旦窗体失去焦点时即最小化

Answer 1

Private Declare Function GetForegroundWindow Lib "User32" () As Long 'api声明

Private Sub Form_Load()
Timer1.Interval = 100 '设置定时器延时100毫秒
End Sub

Private Sub Timer1_Timer()
If GetForegroundWindow <> Me.hWnd Then '判断获取的句柄与本窗体的句柄是否一致
Form1.WindowState = 1 '如果不一致就最小化
End If
End Sub

Answer 2

Private Sub Form1_Deactivate()
'在这里写
End Sub