VB6 代码管家-判断某窗体是否有焦点2024年12月8日 21:50
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Sub Timer1_Timer()
If GetForegroundWindow <> 句柄 Then
Me.Caption = "失去焦点"
Else
Me.Caption = "得到焦点"
End If
End SubPrivate Declare Function GetForegroundWindow Lib "user32" () As Long
Private Sub Timer1_Timer()
If GetForegroundWindow <> 句柄 Then
Me.Caption = "失去焦点"
Else
Me.Caption = "得到焦点"
End If
End Sub
全部回复（0）