Private Declare Sub SwitchToThisWindow Lib "user32" (ByVal hwnd As Long, ByVal bRestore As Long) Private Declare Function GetForegroundWindow Lib "user32" () As Long Dim lngCount As Long Private Sub Timer1_Timer() If GetForegroundWindow <> Me.hwnd Then SwitchToThisWindow Me.hwnd, 0 End If Me.Caption = Timer End Sub
把某一窗口带到最前
最新推荐文章于 2022-06-26 21:48:54 发布