自アプリケーションがアクティブか調べる　　　メニューへ　　ホームへ
'一番手前に立ち上がっているウィンドウ番号を取得
Declare Function GetForegroundWindow Lib "user32" () As Long

Private Sub Form_Timer()
    Dim lWnd As Long

    lWnd = GetForegroundWindow()
    If lWnd = hWndAccessApp Then 'Me.hWnd Then
        Me.Caption = "フォーカス在り"
    Else
        Me.Caption = "フォーカスなし"
    End If
End Sub



Access-Access!

Copyright(C) FeedSoft