private Declare Function GetForegroundWindow Lib "user32" () as Long private Declare Function GetWindowText Lib "user32" _ Alias "GetWindowTextA" (byval hwnd as Long, _ byval lpString as string, byval cch as Long) as Long
3。在窗体的Load事件中加入代码：
Private Sub Form_Load() Timer1.Interval = 100 ''''设置间隔时间 End Sub
4。在Timer控件中的Timer事件中加入代码：
Private Sub Timer1_Timer() Static CurrentHwnd As Long Dim ForegroundWindowHwnd As Long Dim sText As String * 255 ForegroundWindowHwnd = GetForegroundWindow If ForegroundWindowHwnd = CurrentHwnd Then Exit Sub CurrentHwnd = ForegroundWindowHwnd If CurrentHwnd <> hwnd Then Caption = "ActiveWidow''''s Caption: " & Left$(sText, GetWindowText(CurrentHwnd, sText, 255)) Else Caption = "ActiveWindow''''s Caption: Form1" End If End Sub
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
