HOME > 即効テクニック > AccessVBA > Windows環境・オブジェクト > デスクトップのウィンドウハンドルを取得する

即効テクニック

Windows環境・オブジェクト

デスクトップのウィンドウハンドルを取得する

(Access 2000/2002/2003)
●概要●
宣言文  Declare Function GetDesktopWindow Lib "user32" () As Long

デスクトップのウィンドウハンドルを取得します。
次のコードは、デスクトップのウィンドウハンドルをメッセージダイアログで表示するサンプルです。

●サンプル●
Private Declare Function GetDesktopWindow _
    Lib "user32" () As Long

'デスクトップのウィンドウハンドルを取得する
Sub Sample()
    Dim myHwnd As Long
    'デスクトップのウィンドウハンドルを取得して表示
    myHwnd = GetDesktopWindow()
    MsgBox myHwnd
End Sub